AAAAAAAAA HIIII111 LLL 
AAAAAAAAA III! LLL 
AAAAAAAAA HII LLL 
AAA ABA II] LLL 
AAA AAA III LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAK AAA II] LLL 
AA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA Ili LLL 
AMA AAA III LLL 
AAAAAAAAAAAAAAA III LLL 
AAAAAAAAAAAAAAA II] LLL 
AAAAAAAAAAAAAAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA II] LLL 
AAA AAA IIIIIII11 LLLLLLLLLLLLLLL 
ABR AAA IIIIIIII1 LLLLLLLLLLLLLLL 
AAA AAA IIIIIIII1 
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ann nn “we 
nw nn a 
nn nn me 
ann nn = 
wn nn pope 
nw nw ww 
YNNMNM nw 
NNMM nn 
eanaonaaaaaaada 
S2EB600000n5 
ea aa 
ca aa 
ea aa 
Sa aa 
Sa aa 
Sn0000bR0Ra00a0aa0a5 
r=Y=Y-¥-1-Y-t-1-1-)-)-1-1-7-) 


fers) barat 
Cv barat 
ov ww 
eye barour4 
vv rate 
vv bar ar4 
Cv barr 
vv tend 
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MODULE MAILSCMDS( RTITLE ' mea bt PERSONAL MAIL UTILITY COMMANDS‘ 
IDENT = 4-000' ) = 
BEGIN 
' 
PITTI IITILELILLILL LLL ELE LEE TTT ETT ETT TTT TTT TTT TTT TTT TTT TTT TTT 
'® * 
'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
= ALL RIGHTS RESERVED. : 
it ie fe icche is FURNISHED UNDER A LICENSE AND MAY BE USED AND copteD * 
'® Y IN ACCORDANCE WITH THE TERMS OF SUCH iit AND WITH THE * 
' tN NCLUS ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
7. TRANSFERRED. * 
'e ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
'® * 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
te 
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i FACILITY: VAX/VMS MAIL UTILITY 

ABSTRACT: Interactive command processing. 

: ENVIRONMENT: NATIVE/USER MODE 

AUTHOR: Benn Schreiber, CREATION DATE: 22-Dec-1982 
! MODIFIED BY: 


v03-015 noroees Robert Posniak 23-JUL-1984 
Make sure do not point past the end of the 
current folder with the DELETE command. Check 
and report error status after deleting message. 


1 
! 
! 
1 
i 
1 
' 
i 
! v03-014 BLS0272 Benn Schreiber 18-F EB-1984 

: Disable ctri/c handler around help. Use LIBSFIND_IMAGE_SYMBOL 
rather than UTIL$ version. 

! 

! 

i] 

i] 

! 

1 

! 


v03-013 BLS0263 Benn Schreiber 22-Jan-1984 
Don't allow SPAWN if Geog ive user. Implement COMPRESS 
command to convert mail f 


v03-012 9.50298 Benn Schreiber 28-Dec-1983 
Convert arse flags to a flags longword. /NEW implies 
the defau 
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t mail file. Make /EDIT work on sequential 
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Sep-19 


files. Make first, last, search work on sequential 
files. Spawn and attach do a purgws. 


BLS0246 Benn Schreiber 28-Nov-1983 

Add defaults of ‘TODAY’ to /BEFORE and SINCE. Add 

/EDIT qualifier to BACK, CURRENT, FIRST LAST, 

and READ commands. Add /CONFIRM to MOVE, NFTLE, COPY. 


aL S0¢33 Benn Schreiber 23-Aug-1983 
Fix defaulting of folder selection if file already open. 
Clear garbage bits in return status passed as bit flag. 


BLS0227 Benn Schreiber 29-Jun-1983 
Add routine to clear dir_flag and dir_mode. Correct 
method of deleting messages with MOVE, “FILE commands. 


BLS0226 Benn Schreiber 27-Jun-1983 

Make DIR/START=999 give a full screen Listing 

BLS0225 Benn Schreiber 17-Jun-1983 

Make SEARCH command open file and select if not already done. 
BLS0222 Benn Schreiber 15-May-1983 

Disable CTRL/C ast around eapelenlatteabion to subprocess 
BLS0221 Benn Schreiber 55-May-1983 

Fix SPAWN/PROCESS= 

BLS0220 eiber 30-Apr-1983 


Interlock with PuRCE, COREE CRECLAIM to arevent extaneous 
messages. 


BLS0217 Benn Schreiber 14-Apr-1983 
Add SPAWN, ATTACH 
BLS0214 Benn Schreiber 27-Mar-1983 


Add DELETE/ALL command. Cause FIRST and LAST commands to 
open mail file and read default messages if not done yet. 
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TABLE OF CONTENTS: 


INCLUDE FILES: 


YS$LIBRARY 
REQUIRE ‘SRC$:MAILREQ 
IB$:MAILDEF 


EXTERNAL ROUTINE 


ISGET_VALUE: ADD 
SPRESENT: ADDRE 
SATTACH 

Scvt 16 ADDRE 
$ 


mon wow 


CVT“TIME: ADDR 


Dowow- 


READ _MSG, 
FOLDER 


T 

5G, 
FOLDER, 
FILE, 


BIS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSes esse 


oe 
- “GY 


' Test if qualif 
! Attach to a subprocess 

! Convert decimal to binary 
! Convert date/time 

: — a subprocess 


—2z 2m 


nNOOMMMNo 


T 
T 
Ty WASTEBASKET, 
D 
D 


RESSI 
Bx: ADDRESSING 
ESSIN 


40 
4 1 


Get value for ques S¥rer . 
er presen 


ose open msg file 


' Erase the screen 

! Show new a count 

! Compress a mail file 

' Copy messages to a file 

! Delete current ISAM message 
' Delete current message 

' Display summary of messages 


sable CTRL/C trap 

able CTRL/C trap 

it a message 

it/read a message 

splay Listing of folders 
pate msgs from wastebasket 


i 
n 
d 
d 
i 
e 
ile current message 


! Find ISAM message 

' Find a arenene 

! Get from sysSinput 

! Get record of current message 
! Get record from ISAM message 


Get ISAM message info 


' Get message information 
! Get folder info 

' Open a mail file 

' Print a wegecee 

' Put to sysSoutput 

: pr spley a messag 

' Convert/re 

: Remove message from current 
' Rewind current message 

! Rewind ISAM current message 
: Select ISAM messages , 
' Strip quote marks from string 
' Test i 

' Convert string to upper case 
' Ditto, but not inside quotes 
' String copy desc to desc 

! String copy . ; 

! Deallocate dynamic string 


e 
claim isam file 


SUBJ: Line present 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 19~3007 138% 90:62:43 VAX=11 Bliss-32 V4.0-742 Page 4 
v04-000 14-Sep-1984 7:42:16 DISKSVMSMASTER: CMAIL.SRCIJCMDS.832;1 (2) 
; 136 8 00 ! LIBSF IND_IMAGE_SYMBOL; ! Load image, find symbol value | : 
; 13% 03 1 EXTERNAL ; 
3; I 03 1 MAILS$SGL_FLAGS : SBBLOCK, ' Control flags : 
: 160 04 1 MAILSB_ASGTRAN : BYTE, | ISAM getmsg transition : 
; 161 0305 1 MAILSL_OUTLINES ! Number of Lines on page ; 
: 16¢ 0306 1 MAILSL-SYSMAIBUF: REF SBBLOCK, i Pointer to VMSMAIL.DAT buffer 3 
; 16 0307 1 MAILSL_MSG_NUM: LONG, ' Current message number | ; 
; 164 0308 1 MAILSL_MSG_RADR:LONG, ! Current message record addr : 
; 165 0309 1 MAILSW_MSG_RSIZ:WORD, ' Current message record size : 
> 166 0310 1 MAILSL_MSGBUF SIZ, ! Size of seq. file msg buf : 
; 167 8 111 MAILSL_MSG_ STS: LONG ! Current message status : 
; 168 ig 1 MAIL$Q-CURFOLDER : $BBLOCK, i Current folder name : 
: 169 0313 1 MAILSQ_WASTEDESC : S$BBLOCK, ! Wastebasket folder name ; 
; 170 0314 1 MAILSQ_MSGNAME: S$BBLOCK, ! message file name ; 
: 171 0315 1 MAIL$Q_MSGTYPE: S$BBLOCK, ! Default message file type ; 
3 He bei8 1 MAIL$Q_RD DESC : S$BBLOCK, ! Descriptor of current file : 
3; i Q317 1 MAILSL_NMSG : Number of ISAM messsages : 
: 174 0318 1 MAILSL-CURMSG : REF S$BBLOCK, i Pointer to current msg block | ; 
; \?? toh } MAILSL_MSGTBL : REF VECTORC,LONG); ! Pointer to message table : 
: 177 0321 1 GLOBAL : 
; #4178 6356 1 MAILSA_OUTPUT_HELP; ! Address of LBRSOUTPUT_HELP ; 
: 179 0323 1 ; 
: 180 0324 1 OWN . : 
; «(181 0325 1 SEARCH_STRING_BUFF: $BBLOCK(128), ' Current search string buffer : 
: 182 0326 1 DIR_FLAG: BYTE, ' DIRECTORY Last command flag 
; «6183 0327 1 ! and there is more DIR to go 
> «(184 0328 1 DIRFULL_FLAG: BYTE, ' DIR/FULL Last command 
; «185 0329 1 DIR_MODE: . ! 1=DIRECTORY, O=READ 
>; 186 0330 1 SELECT_DATA : VECTORC5S,LONG), ! Used to parse selection stuff 
> 187 0331 1 SELECT-FROM : DYN_DESC_DECL, i ditto 
: 188 O33¢ 1 SELECT-NEW : LONG, i ditto 
; 189 0333 1 SELECT_REPLIED : LONG ! ditto 
: 190 0334 1 DYN_DESC : DYN DESC_DECL i Dynamic descriptors | 
: 191 0335 1 DYN-DESC¢ : DYN_DESC_DECL, 
: 192 0336 1 DYN_DESC : DYN_DESC_DECL, 
: 193 0337 1 C D_Besc : DYN DESC_DECL, 
3 194 0338 #1 SEARCH_STRING: $868 ocere ! Current search string desc 
; 6195 0339 1 PRESET(COSCSA_POINTER] = SEARCH_STRING_BUFF); 
: 196 0340 1 
3 197 0341 1 BIND . 
; «6198 Oees 1 SELECT_FLAGS = SELECT_DATACO) : $BBLOCK; ! Message selection flags 
; 199 o3 1 
; 200 344 1! 
; 201 0345 1 ! Declare static strings for qualifier names 
; soe 0346 1! 
; a P 0347 1 SD 
3 She P 0348 1 *ALL' 
; 205 P0349 1 'BEFORE', 
; 206 P Bse9 1 ‘CONFIRM’, 
: 207 P 0351 1 ‘COPIES’, 
; 208 Pp 8336 1 *DELNUM', 
$ 09 P 0353 1 *"HEADER', 
3 10 P 0354 1 ‘INPUT’, 
3: eli P 0355 1 "FDL ' 
3 el2 P 0356 1 *FILE’, 


Page 
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'For other modules 
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ge 


RECLAIM’ 
CINVQUAVAL , ERROR) 


FOLDER NAME", 


FOLD 


Define shared messages as local 
MSGDEF (MAIL 
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; 8 0401 1 GLOBAL ROUTINE MAILSOPEN_IF = ; 
3 9 +86 } {eo : 
; 260 $3 1 ! FUNCTIONAL DESCRIPTION: ; 
; 261 4046 1! ; 
: 26 405 1 ! Open the default mail file if no mail file is open : 
; £0 ot 1! ; 
> 6264 407 1 ! INPUTS: ; 
; 265 408 1! $ 
; 08 409 1! None ; 
; 26 0410 1! ‘ 
; oS Reis ; } IMPLICIT INPUTS: : 
3 0 $618 1} MAIF_V_FILOPN = 0 if no file open, 1 if file open ; 
; $f 0414 1! 3 
: Lf; 0415 1 !-- ; 
3 af pels BEGIN 3 
> 274 041 ; 
$ are 0418 LOCAL : 
; 276 0419 DESC : VECTORC2,LONG); ; 
3 er 0420 : 
; 278 0421 IF .MAILSGL_FLAGSCMAIF_V_FILOPN] : 
3 344 3 ¢ THEN RETURN TRUE; : 
; «281 0424 DESCCO) = DESCL1] = 0; ‘ 
: sae 0425 RETURN MAILSOPEN_F ILE (DESC) ; 
; 28 0426 1 END; ; 


.TITLE MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMAND 
.IDENT \V04-000\ | 
.PSECT S$CODE$,NOWRT,2 | 


4C 4C 41 00000 P.AAB: ASCII \ALL\ | 
00003 *BLKB 1 | 
00000003 00004 P.AAA: ‘LONG 3 : 
00090009" 0008 “ADDRESS P.AAB : 
45 52 4F 46 4&4 4 OO45 P.AAD: tt teed : | 
00000006 00014 P.AAC: [LONG 6 : 
00000009" 00018 “ADDRESS P.AAD : | 
4D 52 49 46 GE GF 4& 0 i P.AAF: tt ar ee : 
00000007 $00 4 P.AAE: <.LONG 7 : 
00000009" 0028 “ADDRESS P.AAF : 
53 45 49 50 4F 4&4 38 § P.AAH ty pre 3 
90000006 00 P.AAG: LONG 6 ; 
009000 * 00 [ADDRESS P. ; 
4D 55 4E 4C 45 44 005¢ P.AAJ Ascil \DELNUM\ : 
90000006 0044 P.AAL: .LONG 6 : 
000000' 048 “ADDRESS P.AAJ ; 
52 45 44 41 45 48 b004¢ P.AAL “ASCII \HEADER\ : 
00000006 00054 P.AAK: LONG 6 : 


5 | 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1h-sep-19 4 47:25 VAX-11 Bliss=-32 V4.0-742 Page 7 
v04-000 12-8 8-1 3k 00 0o 82 DISKSVMSMASTER:CMAIL.SRCICMDS.832;1 9 (3) 
00000000' 8 ADDRESS P.AAL : | 
S455 SO eR te Sener PoaAN: ARE Rp Att, : 
1 -BLKB 2 
90900005 P.AAM: “LONG ; 
0° 90068 "ADDRESS P.AAN : 
ac 44 6C P.AAP: “ASCII. \FOL\ : 
ef BLKB I 
90000005, 00070 P.AAD: LONG 3 , | 
0000' 74 -ADDRESS P.AAP : 
45 4€ 4&4 46 gfe P.AAR eASCII \FILEN : 
titans 4 hese ORESS 'P AAR . | 
45 4D 41 GE SF 52 45 46 4C 4F °° 0084 P.AAT mt cenit tated : | 
90000008, 00090 P.AAS: LONG 11 ; | 
00000000" 00094 "ADDRESS P.AAT : 
52 45 46 4C GF 46 0098 P.AAV: .ASCII \FOLDER\ : 
009 "BLKB 2 
0000006, GOOAD P.AAU: “LONG 6 ; 
0000000' O000A4 »ADDRESS P.AAV : 
4D 4F 5 46 OOO0A8 P.AAX eASCII \FROM\ : 
00000004 OQOOAC P:AAW: “LONG : | 
00990009" 09080 “ADDRESS P.AAX : | 
4C 4C § 46 0Q000B4 P.AAZ: .ASCII \FULL\ 3 } 
00000004 00088 PLAAY: ‘LON 
00000000" O00BC “ADDRESS P.AAZ : 
47 4F 4C OO0O0CO P.ABB: .ASCII \LOG\ i 
000¢3 "BLKB 1 
00000003 000C4 P.ABA: “LONG 3 : | 
00000000° 000C8 "ADDRESS P.ABB : 
53 45 4D 41 GE SF 46C 41 43 49 G7 GF 4C 4494 P.ABD: ey POE FES ; 
00000000 000DC P.ABC: ‘LONG 13 : 
00000000" 000EO ADDRESS P.ABD : 
59 46 49 54 GF 4E BODE A P.ABF ASCII \NOTIFYN j 
OOEA BLKB. 2 
00000006 OO0EC P.ABE: ‘LONG 6 : 
90990000" 900F9 “ADDRESS P.ABF : 
54 55 50 54 4F QOOF4 P.ABH: “ASCII. \OUTPUT\ : 
OOFA BLKB 2 | 
90000006, QOOFC P.ABG: “LONG 6 : | 
0900000" 00100 “ADDRESS P.ABH : | 
1 50 00104 P.ABJ: “ASCII \Pi\ : | 
8 -BLKB 
90000002, 00108 P.ABI: :LONG : | 
0000090" 9010¢ "ADDRESS P.ABJ : | 
54 GE 45 «52. (41 110 P.ABL: | ASCIT \PARENT\ ; | 
9000000 138 p.enes “thee : 
0990000" 0011 "ADDRESS P.ABL | 
54 4E 49 1 P.ABN eASCII \PRINT\ : 
1 "BLKB | 
90000 158 P.ABM: : 
0990000" 901 "ADDRESS P.ABN : 
53 53 45 43 GF 186 Papp: ASCII \PROCESS\ : 
00000007 00138 P.aBO: ‘LONG 7 : 


53 43 49 54 53 
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59 
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31 
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43 


31 
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54 


42 


41 
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54 


50 


4h 


bis 


52 


a6 


43 
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1 
oe By 
SHHags, $8 
43 4 i 
OE BS 
. Bige 
mE BD 
0178 
SUE. IE 
44 4F 82 O18 
90000005 0018C 
ses Ba 
00000005 i 
see Bs 
00000004 Q01A8 
00000000° 001AC 
4C 45 48 dt 4 
44444 8 0188 
00000000° 0018C 
57 45 4€ 318 
SNES, BE 
pce iE: 
SNRs, 
43 a3 33 Bic 
a O1E4 
0070 99" O1E8 
aS a 
SH, Ir 
4E 03 33 Olt 
SHES, 88 
4E 4 : 6 61 
SHEE a 
41 54 it 
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-ADDRESS P.ABP 
eASCII = \QUEUE\ 
-BLKB 


«LO 

«ADDRESS P.ABX 

eASCII = \TODAY\ 

-BLKB 3 

-LONG 5 

«ADDRESS P.ABZ 

eASCII = \REPLF\ 

-BLKB 3 

LONG 5 

«ADDRESS P.ACB 

neces \EDIT\ 

eADDRESS P.ACD 

eASCII = \HELPKEYS\ 

- LONG 

«ADDRESS P.ACF 
\NEW\ 


-ASCII 

-BLKB 

-LONG 3 

«ADDRESS P.ACH 

eASCII = \READ1\ 

-BLKB 

LONG 

ADDRESS P.ACJ 

»ASCII = \READ2\ 

-BLKB 

- LONG 

«ADDRESS P.ACL 
SEARCH1\ 


L 
- LONG 
-ADDRESS P.ACN 
eASCII = \SENDI\ 
-BLKB 
- LONG 
-ADDRESS P.ACP 
ASCII \SINCE\ 
a: 


«LONG 

»ADDRESS P.ACR 
eASCIIT = \START\ 
-BLKB 3 
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.PSECT S$OWNS,NOEXE,2 
00000 SEARCH_STRING_BUFF : 

-BLKB~ 128 
00080 DIR_FLAG: 
00081 DIRFULL_FLAG: 


1 
. 1 

00082 DIR_MODE: 
-BLKB } 


00083 -BLKB 
00084 SELECT_DATA: 
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yoLt000 2: wag 99502:9% «— SaecdumRAASTERSCMAIC cheacmps.e32;1 2% ¢3%| 
| 
a a _ 
54 43 45 4A 42 GP ACV ASCI \SUBJECT\ : | 
900 9007 ACU: :LONG 7 ; | 
0° 8 “ADDRESS P.ACV : | 
54 58 4 af ¢ «ACK: cASCII | \NEXT\ : 
900 00 46 P:ACW: LONG 4 ; 
9 Q" hb “ADDRESS P.ACKX ; 
31 46 54 4 48 P.ACZ: <cASCII  \SETF1\ : 
4D “BLKB : 
900 00 0 P.ACY: [LONG ; 
' 4 “ADDRESS P.ACZ : 
31 4E 54 4 0258 P.ADB: ‘ASCII \SETN1\ : 
025D “BLKB 3 
90¢000 5 00260 P.ADA: [LONG : 
00000 9° 0264 “ADDRESS P.ADB ; 
54 49 41 0268 P.ADD: <ASCII  \WAIT\ : 
900000 4 00 6 P "LONG 4 ; 
0000000" 0 "ADDRESS P.ADD : 
54 53 49 4C GF 54 00274 P.ADF: ‘ASCII \TOLIST\ : 
00 7A “BLKB 2 
00000006 0027C P.ADE: “LONG 6 ; 
00000000" 00280 "ADDRESS P.ADF 


-BLK 20 
00# 00098 SELECT _FROM: 
-BYTE Of2] : 
02 OEF Q009A pe ae 2 3 
00085 SELECT_NEW: 
-BLKB 4 
000A4 SELECT Arlt ne ‘ 
00# O00A8 DYN_DESC: 
-BY CC2) : 
02 OE QOOAA -BYTE 14, 2 3 
OOAC > he 4 
00# 00080 DYN_vESC_2: 
02 O€ B “BYTE 14, 2 : | 
mam 4 
00# 000B8 DYN_DESC rE | 
° | 
02 OE O00BA ‘BYTE 140-2 | 
| 
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:47:25 VAK=11 Bliss-32 V4.0-742 
90:755%8 DISKSVMSMASTER: CMAIL. SRCICMDS.B32;1 

ETFi== P.ACY 
ETNi== P.ADA 
EXTRN CLIS$GET_VALUE CLISPRESENT 
EXTRN LIBSATTACH, LIBSCVT DTB 
EXTRN LiBscvi TIME rat 
EXTRN MAILSCLOSE FILE 
EXTRN MAILSCMD_ERASE, MAILSCMD_SHOW_NEW 
EXTRN MAILSCOMPRESS, MAILSCOPY-MSGS~ 
EXTRN MAILSDELETE_1 MSG 
EXTRN MAILSDELETE “MSG 
EXTRN MAILSDIRECTORY, MAILSDISABLE_CTRLC 
EXTRN MAILSENABLE_CT TRLC 
EXTRN MAILSEDIT, MAIL EDIT _READ_MSG 
EXTRN MAILSDIR_FOLDER 
EXTRN MAILSEMPTY_WASTEBASKET 
EXTRN MAILSPILE T_MSG 
EXTRN MAILSFIND-1-MS 
EXTRN MAILSFIND-MSG, MAILSGET_INPUT 
EXTRN MAILSGET_ASG, MAILS$GET_T_MSG 
EXTRN MAILSINEO_I. 
EXTRN MAILSINFO-M MAILSINEO FOLDER 
EXTRN MAILSOPEN Fite, MAILSPRINT 
EXTRN MAIL$PUT_OUTP 
EXTRN MAILSREA AS. It peblaaa 
EXTRN MAILSREMOVE_I_MSG 
EXTRN MAILSREWIND-MSG 
EXTRN MAILSREWIND=1 MSG 
EXTRN MAILSSELECT fscs 
EXTRN MAILSSTRIP Guotes 
EXTRN MAILSTEST_SUBJ, MAILSUPCASE 
EXTRN RAIL SUP PeASE 0 O7SssCOPY DXDX 
EXTRN STRSCOP Sears _DR 
EXTRN CIBSEIND@1 MAGE eynGe t'- 
EXTRN MAILSGL Fics “MAILSB_MSGTRAN 
EXTRN MAILSL OUTLINES 
EXTRN MAILS$L~SYSMAIBUF 
EXTRN MAILSL“MSG_NUM, MAIL$L_MSG_RADR 
EXTRN MAIL$W-MSG-RSIZ 
-EXTRN MAILSL-MSGBUF S12 
-EXTRN MAILSL-MSG_STS, MAIL$Q_CURFOLDER 
EXTRN MAIL$Q~WASTEDESC 
“EXTRN MAILS$SQ~ “SGN AME , MALL Sa _MSGTYPE 
EXTRN MAIL$Q~RD DESC, MAILSL~NMSG 
“EXTRN MAILSL ~CURMSG. ‘MAILSE _ASGTBL 


PSECT $CODES,NOWRT,2 
gENTRY MAILSOPEN.IF, Save nothing 


#8, 
BBC #3, MAILSGL_FLAGS+1, 1$ 
Pere #1, RO 


CLR DESC 
CALLS #1, MAILSOPEN_FILE 
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0427 1 
0428 1 
0429 1 
Be 0 1! 
4351 1! 
04 ¢ 1! 
04 1 ! INPUTS: 
8 4 1! 
435 1! None 
0436 1! 
0437 1 ! OUTPUTS: 
0438 1! 
0439 1! 
0440 1 !-- 
0441 2 BEGIN 
044 § SELECT_DATALO] 
044 SELECT_DATAL1) 
0444 2 SELECT_DATA ¢] 
0445 2 SELECT_DATA(C3) 
0446 2 SELECT_DATAL4) 
0447 2 RETURN 
0448 1 END; 
04 
08 
10 
27 bytes, Routine Base: 


ROUTINE INIT_SELECT_DATA : 
i FUNCTIONAL DESCRIPTION: 


Initialize the message selection data vector 


SELECT_DATA vector initialized for parsing 


52 00000000° 


A2 
A2 


A2 


SCODES + 02A1 


& 90390: 92 VAX=11 Bliss=32 V4.0-742 
4 12:42:16 DISKSVMSMASTER:CMAIL.SRCICMDS.B32;1 


ATA, R2 
A 


T_DATA+4 
T_DATA+8 


TA+12 
T_DATA+16 


ee _— 


6 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1 -Sep-1984 re Hi 47:25 VAX-11 Bliss-32 
v04-000 14-Sep-1984 12:42:16 ISKSVMSMASTER:[ 
H 08 0449 1 ROUTINE PARSE_SELECTION_QUALS = 
; 509 0450 1 !44 
3 i pees ij i FUNCTIONAL DESCRIPTION: 
: \¢ ek 1! Parse the message selection qualifiers and fill in SELECT_DATA 
3 1 0454 1! vector. 
3 64314 0455 1! 
3 15 0456 1 ! INPUTS: 
; 316 0457 1! 
; ole 0458 1! SELECT_DATA vector initialized for parsing 
; 4318 0459 1! 
; 19 0460 1 ! OUTPUTS: 
; 320 0461 1! : : Spy 
; $5) Ree : SELECT_DATA vector filled in according to selection criteria in command 
; 358 0464 2 BEGIN 
3 $e 0465 2 
; 25 0466 2 BIND 
: 326 0467 2 QUAL_FLAGS = SELECT_DATACO] : $BBLOCK; 
. Ber 0468 2 ! 
; seo 0469 2 ! Parse the /BEFORE qualifier 
3 se 0470 2! 
; 330 0471 2 QUAL aUAL FLAGst BEFORE] = CLISPRESENT(SD_BEFORE); 
s 331 0472 ¢ IF .GUAL_FLAGSCOUAL_BEFOREJ 
3; See 0473 THEN 
s 335 0474 ; haier VALUE (SD_BEFORE ,DYN_DESC); 
> 334 0475 IF .DYN~DESC EDScSu LENGTH] EQL 0 
3 S30 0476 3 HEN STRS$ Y_BX(DYN_DESC,SD ei 
: 336 P 0477 3 IF _ERRILIBSCVT™ “TIRE COM BESC,SELECT_DATAL1)); 
:. oo 0478 3 RETURN LCRRILS_{NVQUAVAL, 2,DYN bESC, SD_BEFORE)); 
; 338 0479 3 IF + + i be Datataa€ 
; 339 0480 3 (.SELE rico) AND %X*FFF80000') EQL 0 
; 340 0481 3 Oren RETURN RT ONAL MAIL$_INVQUAVAL,2,DYN_DESC,SD_BEFORE) 
: 341 0482 2 D; 
: 342 0483 2! 
: $7 pose § Parse the /SINCE qualifier 
3; 345 0486 2 QUAL QUAL FLAGS SINCE] = CLISPRESENT(SD_SINCE); 
; 346 0487 ¢ I FLAGS GUAL_ SINCE) 
3 Sar 0488 THEN BEG 
: 348 0489 3 igser aiid (SD_SINCE ,.DYN_DESC); 
> 349 0490 3 IF .DYN-DESCCDSCSW_LENGTH) EQL 0 
s 350 0491 3 THEN ST RS COBY BX(DYN_DESC,SD_T 
; 331 P 049 ; IF -ERR(LIBSCVT “TIRECOTN BESC, SE pect D 
: 352 049 RETURN EADYN ESC SELECT DA] yA ah Bésc. SD_SINCE)); 
3 $27 0494 ; IF .SELECT_DATA i Neb 0 
: 354 0495 OR (.SELECT_DATAC4] AND %X'FFF80000") EQL 0 
3 $e2 bcos 3 END; THEN RETURN” SIGNAL (MAILS INVQUAVAL ,2,DYN_DESC,SD_SINCE); 
: 325 0498 $ ‘QUAL FLAGSCQUAL FR mJ = CLISGE1 1tSb Ne FROM,SELECT_FROM); 
: 358 499 QUAL FLAGSCQUA L_REw CLISPRESENT(SD_NEW); 
: 59 500 !  QDAL_REPLI tp" 
; 360 0501 
3 $e) ea) RETURN TRUE 
; 362 503 1 END; 


D 6 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25  - VAX=11 BLiss-32 V4.0-74 MA] 
04-000 eager 8Be 98255 8s | Naas eRe heen eteacmps 32-1 29° °b vod 
QUAL _FLAGS= SELECT_DATA ; 
00FC 00000 PARSE SELECTION. QUALS;, a A ah a ah ; 
° ave ° D ° ’ . Pj | ° 
57 900000006 00 9 0002 MOVAB LIBSCVT TIME, R7 : : 
56 000000006 00 9€ 0000 MOVAB STRSCOPY_DX, R6 : | ; 
35 900000006 00 9 00010 MOVAB CLISGET_VALUE, RS ; | : 
34 000000006 00 9& 0001 MOVAB CLISPRESENT, R4 ; | ; 
53 FD36 «CF OSE OO1E MOVAB SD_BEFORE, R3 ; : 
52 00000000" 99 9 400 MOVAB DYR_DESC, ‘R2 : : 
DD A PUSHL R3 + 0471, : 
64 01 FB 0002¢ CALLS #1, CLISPRESENT : : 
DC A 01 00 0 FO 0002F INSV RO, #0, #1, QUAL_FLAGS : ; 
32 pc =A2 «~E9 00035 LBC QUAL_FLAGS; 3$ + 0472 : 
52 DD 00039 PUSHL Re : 0474 : 
53 DD 00038 PUSHL R ° : 
65 0 FB 0003D CALLS #2, CLISGET_VALUE $ : 
62 B5 00040 TSTW  DYN_DESC : 0475 : 
09 12 00042 NEQ  ‘1$ : : 
0178 C3 9F 00044 PUSHAB SD_TODAY : 0476 | : 
52 DD 00048 PUSHL Re : 
66 02 FB OO04A CALLS #2, STRSCOPY_DX : 
EO A2 9F 0004D 1$: PUSHAB SELECT_DATA+S : 0478 
52 DD 00050 PUSHL Re : 
67 02 FB 00052 CALLS #2, LIBSCVT_TIME : 
OF 50 €9 0005 BLBC =‘ STATUS, : 
50 E4 A2 DO 00058 MOVL § SELECT. DATA+8, RO : 0479 
09 13 0005C BEQL =-2$ : 
FFF80000 8F 50 03 0005E BITL RO, #-524288 : 0480 
04 12 00065 BNEG = 3$ : 
53 DD 00067 2: PUSHL R3 : 0481 
46 11 00069 BRB 63 ; 
0200 C3 9F 0006B 3S: PUSHAB SD_SINCE > 0486 
64 01 FB O006F CALLS #17 CLISPRESENT : 
pC A 01 01 50 FO 00072 INSV RO. #1, #1, QUAL_FLAGS : 
46 pc = A2 01 €1 00078 BBC #1, QUAL_FLAGS, 7$ ; 0487 
38 DD 0007D PUSHL R2 + 0489 
0200 C3 9F 0007F PUSHAB SD_SINCE : 
65 02 EB 00083 CALLS #2, CLISGET_VALUE : 
62 BS 00086 TSTW DYN_DESC > 0490 
09 12 00088 BNEQ 4$ : 
0178 C3 OF OO0BA PUSHAB SD_TODAY > 0491 
DD 000 F PUSHL Re : | 
66 02 FB 0009 CALLS #2, STRSCOPY_DX : | 
E8 Ag 9F 00093 4$: PUSHAB SELECT_DATA+T2 > 0493 
52 DD 0009 PUSHL R : 
67 08 FB 009 CALLS #2, LIBSCVT_TIME : 
OF 50 €9 00098 BLBC STATUS, : 
50 EC A2 D O09 MOVL SELECT _DATA+16, RO > 0494 | 
09 13 OOOA BEQL $ : 
FFF80000 8F 30 p ae BIT RO, #-524288 3 0495 | 
0200 ¢ 9F OOOAD 5$ PUSHAB S?_SINCE : 0496. 
DD 000B1 6$ PUSHL Re : 
02 0D 000B3 PUSHL # : 


Dagups YAO reasowu rank wruiry comms, FST HELEESE SHedIWBALG¥E Mbt -Te8sens.azeis °° df 


007E132A Bf DD B5 PUSHL 926 are ; 

000000006 00 4 fe 3 faye #4, LIBSSIGNAL ; 
0180 §=¢3 oF OCS 7$ PUSHAB SD_NEW 3 0499 

6 01 FB 000C CALLS #1, CLISPRESENT : 

DC =A2 01 04 50 FO QOOCA INSV RO, #4, #1, QUAL_FLAGS ; 
5U 01 00 00000 MOVL #1, RO ; 0502 
04 00003 RET ; 0503 


; Routine Size: 212 bytes, Routine Base: S$CODE$ + 02BC 


F 6 
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vouco 0 127808-1382 9930559 DISKSVMSMASTER: CMAIL.SRCJCMDS.832;1 . (6 
; re : } ROUTINE READ_MESSAGE (EDIT_FLAG) = ; 
H ? § ! FUNCTIONAL DESCRIPTION: | ; 
: 368 1 } Begin reading the next message ; 
: 369 08 | i : 4 | 
: £9 19 ! : INPUTS: | : 
: ie 1g 1! EDIT FLAG = TRUE if to ieyoke editor, false if screen-at-a-time read ; 
: Le 1? } MAILSREWIND_I_MSG or MAILSREWIND_MSG has been called as appropriate : 
: a B21? 1 ! OUTPUTS: F 
; 376 \ 1; | : 
s 377 0517 1! Calls MAILSREAD to read and display text of message : 
: Sr 0518 1 !-- | ; 
; 379 0519 BEGIN ; 
; 380 b260 : 
; 81 0521 IF .EDIT_FLAG : 
; 386 05 ¢ THEN BEGIN : 
; 38 05 RETURN MAILSEDIT_READ_MSG() : 
; 384 0524 N ‘ 
>; 385 0525 ELSE BEGIN : ; 
; 386 0526 MAIL$B_MSGTRAN = MMB_C_FROMXDT; !Don't put date/time on from Line : 
3 Ser 0527 RETURN MAILS$READ() : 
; 388 0528 2 END; 8 
; 389 0529 1 END; | : 
| ; 

0000 00000 READ_MESSAGE : 

«WORD Save nothin : 0504 

08 04 AC €9 00002 BLBC EDIT_FLAG, 1$ ; 0521 

000000006 00 00 FB 00006 CALLS #0, MAILSEDIT_READ_MSG ; 0523 

04 0000D RET ; 0525 

000000006 00 06 90 OOOOE 1$: MOVB #6, MAIL$B_MSGTRAN ; 0526 

000000006 00 00 FB 00015 CALLS #0, MAILSREAD : 0527 

04 0001C RET ; 0529 


; Routine Size: 29 bytes, Routine Base: S$CODE$ + 0390 
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v04- 14-Sep-1984 716 DISKSVMSMASTER: CMAIL.SRCICMDS.B32;1 (7) 


<z 
<= 


Elst RETURN TRUE 
END; 


3 4! 0 9 ROUTINE CHECK_FOLDER (FOLDER_DESC) = ; 
; 393 6 ¢ | | FUNCTIONAL DESCRIPTION: 
: 395 0534 1 Check the folder name, signal any errors. ; 
; 396 0535 1! : 
ae ytd 05 § 1 !=- : 
; 398 05 BEGIN : 
: 399 b2a8 

; 400 0539 2 MAP 

; 401 0340 FOLDER_DESC : REF S$BBLOCK; 

: 40 0844 IF FOLDER pESCCDSC Su LENGTH] GTRU MFR_S_FILEKEY 

; B36? N RETURN SIGNAC(MAIL$_BADVALUE,T,-FOLDER_DESC) 

; 0545 1 


0000 00000 CHECK_FOLDER: | 
WORD 


WO Save nothin ; 0530) 
27 04 BC B1 00002 CMPW @FOLDER_DESC, #39 > 0542) 
13 1B 00006 BLEQU : 
04 AC DD 00008 PUSHL FOLDER_DESC : 0543) 
01 DD 0000B PUSHL : 
007E1112 8F DD 0000D PUSHL #8261906 : 
000000006 00 03 FB 00013 CALLS #3, LIBSSIGNAL : 
04 OOO1A RET : 0544 
50 01 DO 0001B 1$: MOVL #1, RO : 
04 OO01E RET : 0545 


; Routine Size: 31 bytes, Routine Base: S$CODE$S + O3AD 


MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS sep 4 5 VAX-11 Bliss-32 V4.0-742 Page 19 
yoLt000 Hatt rie Be Pa Set HS tty at ed a 
408 4g ' ROUTINE SELECT_DEFAULT = 
; $19 48 | : FUNCTIONAL DESCRIPTION: 
3 £18 ? 1 } Open the mail file (if not open) and select the default messages 
: aig ; BEGIN 
3 16 9 4 LOCAL 
; at 4 932 FOLDER_DESC : VECTORC2,LONG); 
: 619 0337 FOLDER -PESCEO? = pf OLDER DE DESCC 1} = 
> 420 § IF NOT MAILSG mai F AY ILOPN ti 
3; 421 055 OR .MAILSQ  CURFOLDER DSCSu_LENGTH) EQL 0 
s 6 ; 0560 THEN BEGIN. 
3 4 P 0561 IF ERR(MAILSOPEN_IF(); 
> 424 0968 RETURN .STATUS); | 
; 425 056 IF 7 -MAILSGL UFLAGSCMAIF.V ISAM] !ALL done if not isam file 
; 36 0564 THEN RE TUR N TRU UE; 
3; 427 0565 INIT_SELECT AQ); 
; L : -MSGS(FOLDER_DESC,SELECT_DATA);, 
428 P 0566 IF _ERR(MAI $3. ect’ (FOLDE T 
3 rs 0567 ETURN .STATUS); 
: 430 0568 § END; 
3; 431 0569 
3; 432 0570 2 RETURN TRUE 
7 433 0571 +1 END: 
0000 00000 SELECT_DEFAULT: | 
. WORD pave pores 3; 0546) 
7E 7C 00002 CLRQ A yet sc ; 0557) 
08 000000006 00 03 £1 00004 BBC i] NATLSCL FLAGS+1, 1$ > 0558) 
00000000G 00 85 0000C TSTW MAILSQ_ CURF OLDER 3; 0559 
? 12 00012 BNEQ : | 
FESF CF 0 FB 00014 1$: CALLS #0, MAILSOPEN_IF ; 0562) 
22 50 £9 00019 BLBC = STATU ; 
18 000000006 00 €E9 Booss BLBC RAILSct FLAGS, 2$ : 0563 
FEAD CF 00 FB pai CALLS NIT SELECT _DATA ; 0565 
00000000" 00 9F 00028 PUSHAB secect 0 fh ; 0567 | 
04 AE 9F 0002 PUSHAB FOLDER D 3 
000000006 09 Fe 88 1 CALLS sant ELECT MSGS 3 
0 E9 00 BLBC 3 | 
50 01 00 000 ¢: MOVL ; 0570. 
04 O0O03E 3$: RET ; 0571 


; Routine Size: 63 bytes, Routine Base: S$CODE$ + O3CC 


Pe ee See Se Oe Se Se Se Se Se See Se Se Se Se Se Se Se SHS Se Se Se Se Oe ee SHS Se Be Os 


MAIL EEROS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1b-se ~3007 1383 99:42 3 fant a ¢ 


: : 1 GLOBAL ROUTINE MAILSCLR_DIR_FLAG : NOVALUE = 

es 7 "FUNCTIONAL DESCRIPTION: 

3; 6 78 1 i This routine clears the flags that determine whether a directory 
; 44 . command was in progress. 

i & 9 4 i 

BE Rg aes 

: 445 38¢ ¢ DIRELAG = 0 

> 446 5 DIR- MODE = 0; 

> 44 584 RETORN; 

; 448 585 1 END; 


0000 00000 ENTRY MAILSCLR_DIR_FLAG, Save nothing 
00000000' 00 94 00002 CLRB -DIR_FLAG 
00000000" 00 94 00008 CLRB  - DIRTMODE 
04 O000E RET 


; Routine Size: 15 bytes, Routine Base: S$CODE$ + 0408 
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BEAN PINPININININININID 2 OO Ot OO es 
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GLOBAL ROUTINE MAILSCMD_READ (PARSE_FLAG 
FUNCTIONAL DESCRIPTION: 


the rest of the current message text, or if there is no more 
the text of the specified message. 


INPUTS: 
PARSE_FLAG argument present if not called from CLISDCL_PARSE 
OUTPUTS: 
DIR_FLAG = Zero. 
res Specified message text is displayed on SYSSOUTPUT. 
BEGIN 
BUILTIN 
ACTUALCOUNT; ! Number of actual args passed 
LOCAL 


FOLDER_DESC : $BBLOCKCDSC$C_S_BLNI, 
NEW FICE 

EDIT FLAG, 

MSG_RUM: 


MAILSCLR_DIR_FLAG(); 
NUM = 0; 


FLAG = 0; 
ITTSDESC(FOLDER_DESC); 
ITSELECT DATA); 
ACTUAL COONT () EOL 0 '1f called from CLIDISPATCH 


= "ZZ 


4s ee 
m 


V4.0-742 
:CMAIL.SRCICMDS.B32;1 


This is the READ command action routine and is called to display 
the text of the next message, or if a specific message is specified, 


ee eee) 


IF CL TSES T LVALUE (SB_READ .DYN_DESC_3) 'If first parameter present 


THEN BEGI 
See if it's a number. If not, it must be the foldername 
iF NOT LIBSCVT_DTB(.DYN DESC SCDSCSy LENGTH] 


.DYN_DESC_3COSCS$A_POINTER] ,MSG_NUM) 
THEN BEGIN 
FOLDER DESCEDSCSW_LENGTH] = .DYN_DESC 3tps¢$y LENGTH); 
FOLDER_DESCLDSCSA_POINTER] = .DYR_DESC_SCDSCS$A_POINTER); 
END; 


' 
If 2nd parameter present it MUST be the message number 


IF CLISGET VALUE (SD_READ2,DYN_DESC_2) 
IF NOT LIBSCVT_DTB(.DYN_DESC_2CDSC$W_LENGTH] 
DYN DESC _2CDSCSA POINTER] ,MSG_NUM) 
THEN RETURN SIGNAL (MAIL$_BADVALUE,1,DYN_DESC_2); 


K 6 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 vA 20-742 
vO4=000 12 371984 13:03; f8 I IL.SRC 


Pp 
ICMDS.B32;1 o0e 22 


i 
; Parse message selection qualifiers 


SEL 


; 3 ° 
: 4 : 
; § ce 
; 9 a rh IF ERR(CHECK_FOLDER(FOLDER_DESC);, | : 
Ps 1 § oe T URN a U Hy | : 
3 51 e IF ERR(PARSE SELECTION QUALS();, : 
; 514 6 RETURN .STAT | : 
; 515 1 EDIT FLAG = CLISPR RESENT(s EDIT); | ; 
i 316 636 IF SELECT FLAGSLQUAL ; 
; 51 6 AND NO “MAIL CL PLAGSCMAIF -V_DFMSG) é 
: 18 6 $ < THEN MAIL SCLOSE triLEQ: : 
: 35 ee 5 | 
3; > § 0658 : If there are no more records in the current message or a specific message | : 
; ; Z Be28 ; is desired, find the next or specific message, respectively. | : 
3 5 0661 4 IF (NEW. FILE = (NOT .MAILS L gFLAGSEMA FV FLLOPNI : 
‘= g 0668 “OR (FO OLDER -PESCED osu gtENGTH NEG 0 : 
Ps 5 066 OR ( ° 
; 328 P 0664 2 THEN IF LERRCRAILSOP PEN : 
; 529 0665 RETUR jie : 
; > 0666 IF -MAILS$GL_FLAGS Tae V_ISAM) : 
; 23] THEN BEGIN ; 
i 53 0668 IF NEW. FILE | 
; 35 669 MAILSL_NMSG EQL 0 
; 534 P 0670 4 THEN CIF _LERR(MAILSSELECT MSGS (FOLDER DESC ,SELECT_DATA);, ; 
: 535 0671 4 stn RN .STAT | : 
; 536 067¢ MAILSGL FLAGSEMATF _W-RDHOLDS = 0); : 
i 337 067 IF .MAILSL_MSG_STS 
: age pore OR -MATL USL asc S15 FaL MAIL$_NOTREADIN | : 
; . = | . 
; 346 26 4 THEN BEGIN : 
3; 541 677 5 IF MAILSFIND_I_MSG(.MSG_NUM,(IF .MSG_NUM NEQ 0 : 
; 206 678 5 THEN 0 : 
> 54 0679 4 ELSE 1)) é 
3 544 0680 4 AND MAILSREWIND_I_MSG() ; 
3; 545 0681 4 THEN ; 
3; 546 06 ¢ 4 READ_MESSAGE(.EDIT_FLAG) : 
3; 547 068 4 ELSE | : 
; 248 684 4 SIGNAL (.MAILSL_MSG_STS); | 
; 356 686 4 RETURN TRUE | 
. . | 
; 55 88 7 
; 28 0689 ! If there aren't any more erpsoges in the message file, start over with 
3 385 + the first message in the file. 
: 556 9 iF .MAILSL_MSG_STS EQL MAIL$_NOMOREMSG 
: 37 95 4 THEN BEGIN™ | 
; 558 69% 4 IF MAILSEIND 91 MSG(1,1) 
; 33 695 4 AND ILSREWIND. [asco 
; 561 697 4 READ MESSAGE ( EDIT_FLAG); | 
: 

6 698 4 IF NOT MAILS $T§ 
; 56 99 4 AND LSC mast. STS NEQ 0 
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64 THEN SIGNAL(.MAILSL_MSG_STS); 
65 RETURN TRUE; 
$8 END; 
6 END 
68 ELSE BEGIN 
IF .SELECT_DATACLO] NEQ 
OR .FOCDER_DESCCDSC$W_LENGTH] NEQ 0 
0 THEN RETURN SIGNAL (MAIL$_ROTISAM); 
0 F ILSL_MSG_STS EQL 0 
0 R .MATLSL-MSG_STS EQL MAIL$_NOTREADIN 
1 K NUM NED 0 


0 s 
THEN BEGI 
ee FOU OEM, EF ED 


READ_MESSAGE(.EDIT_FLAG) 
ir -MAILSL_MSG_STS EQL MAIL$S_NOMOREMSG 
SIGNAL (MAIL$_NOMOREMSG) ; 


ELSE 


RETURN TRUE; 
END; 


MEWN—O OONOUESWN Oo 


If there aren't | more messages in the message file, start over with 
the first message in the file. 


F .MAILSL_MSG_STS EQL MAIL$_NOMOREMSG 
HEN BEGI 
IF _MAILSFIND_MSG(1) 


READ_MESSAGE(.EDIT_FLAG); 
oe TRUE ; 


wn 


SESS IIIS SSIS SELES ESSE ee IS 
SSELSSRSSSSsESe 4 
SGOOCOSOSOSOOSSOSOSOSSOSSOSOSCOSSOSOSOSOOOCOSOOOOOOOOOOOOOoOOO 


SN NNN NNN NNN SSN NSS 
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END; 
{ 
! If there are more records in the current message, display them. Otherwise 
there is an error. 
01 IF .MAILSL_MSG_STS 
4 THEN 
0 MAILSREAD() 
604 ELSE 
605 SIGNAL (.MAIL$L_MSG_STS); 
606 RETURN TRUE 
607 END; 


OFFC 00000 ENTRY MAILSCMD READ, Save R2,R3,R4,R5,R6,R7,R8,- 3 0586 
5B 000000006 00 9%€ 00002 MOVAB MAILSFIND_I_MSG, R11 : | 
3A 0 G 6 9E 00009 MOVAB LIBSCVT_DTB; R10 : 

9 G 9E 010 MOVAB CLISGET-VALUE, R9 : 

a G 0 9E 0001 MOVAB LIBSSIGNAL, R& : | 
7 6 0 06 9E OO1E MOVAB MAILSGL_FLAGS, R7 ; 
6 000000 0 9E 0002 MOVAB MAILSL_ASG_STS, R6 : 


FFI 


04 


1D 
FF2C 


oc 
07 


7B 


08 


000000006 


01 
000000006 
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SELECT DATA 
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6 DISKSVMSMASTER: CMAIL. SRCJCMDS.B32;1 ° 185 
READ_MESSAGE, R5 ; | 

SELECT FLAGS, R4 : 
#i2, SP 3 
#0, MAILSCLR_DIR_FLAG : 616 
MSG_NUM : 061 
EDIT FLAG ; 0618 
FOLDER DESC +4 : 0619 
#0, INTT_SELECT_DATA + 0620 
(AP) : 0621 
1$ : 
BYN.DESC.3 + 0623 
SD_READ1~ ; 
eee SLISGET VALUE 3 
RO, 2$ : 
SP + 0628 
DYN_DESC_3+4 > 0629 
DYN-DESC-3, =(SP) : 0628 
#3, “Lgesevt DTB ; 
RO, 2$ : 
DYN_DESC_3, FOLDER_DESC > 0631 
DYN-DESC-3+4, FOLDER_DESC+4 : 0632 
DYN-DESC_2 : 0638 
SD_READ2- ; 
#2; cL ISGET VALUE ; 
RO, 3$ 3 
SP ; 0640 
DYN_DESC_2+4 + 0641 
DYN-DESC~2, (SP) : 0640 
#3, LIBSCVT_DTB ; 
RO, 3$ 3 
DYN_DESC_2 + 0642 
#8261906 F 
#3, LIBSSIGNAL ; 
FOLDER DESC : 0648 
, CHECK_FOLDER 3 
#0, PARSE SELECTION_QUALS : 0650 
STATUS, 9S F 
SD_EDIT : 0651 
#175 CLISPRESENT ; 
RO, EDIT FLAG ; 
#4; SELECT FLAGS, 4$ : 
#4. MAILSGC_FLAGS+1, 4$ > 065 
#0, MAILSCLOSE FILE 3; 0654 
RO : 0662 
FOLDER_DESC ; 
an 3 
a #1, MAILSGL_FLAGS+1, R2 ; 
RO, R2 : 
3; 0663 
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; Routine Size: 


503 bytes, 


VAX/VMS PERSONAL MAIL UTILITY COMMANDS 


000000006 
007E8042 


007E8042 


000000006 


000000006 


1 
1 
04 1 19D 
D 19F 
bb att 21$ 
046 AE DD the 
00 Q FB O1A8 
6 EB OO1AF 22$: 
F $6 D1 00182 
8 12 0018 
007E8042 8F DD 001BB 
2D 11 001C1 23$: 
BF $6 D1 9015 4s: 
13 12 OOICA 25$: 
01 DD 001CC 
00 01 FB OIE 
1B 50 €9 0010 
55 DD 00108 26$: 
65 01 FB OO1DA 
14 11 001DD 
50 66 DO OO1DF 27$: 
09 50 £9 OO1E2 
00 00 FB 001E5 
05 11 OO1EC 
50 DD OO1EE 28$: 
68 01 FB 001FO g8: 
50 01 DO OO1F3 30S: 
04 001F6 


Routine Base: S$CODE$S + O41A 


ow 
te 
vm 
eon 
vv 
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0.0 
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VAX=-11 ty He v4. 


S- 
ca 


hee 
“WAILSF IND, MSG 

RAL L_MSG_STS, #8290370 
#3390370 

9$ 


MAILSL_MSG_STS, #8290370 
278 


‘. MAILSF IND_MSG 
RO, 306 

EDIT FLAG 
#1 READ MESSAGE 
30$ 
MAILS$L_MSG_STS, RO 
#0, MAILSREAD 

30$§ 

RO 

#1, LIBSSIGNAL 

#1, RO 


Be Se Se Se Se Ge Se Se Se Be Se Se Ge Se Ge Ge Se Se Fe Se Ge Ge Se Fe Fe Se Be 
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; 609 0744 1 GLOBAL ROUTINE MAILSCMD_BACK = 

; 610 0745 1 !44 
; $1) gre8 : FUNCTIONAL DESCRIPTION: 
; 8 0748 1! This is the BACK command action routine and is called to display 
; 614 0749 1! the previous message. 

; 615 0750 1! | 
; 616 0751 1 =! INPUTS: 

; 617 BF 26 1! 

; 618 0755 1! Current message context. 

: 619 0754 1! 

3 ost 0755 1 ! OUTPUTS: 
: 621 0756 1! 

$ O66 ta 4 : The message before the current message is displayed on SYS$OUTPUT. 

; 624 0759 2 BEGIN 
: 625 0760 2 LOCAL 
; 626 0761 2 EDIT_FLAG, 
; 627 354 2 MSGNOM; 

: 628 0763 2 

; 629 0764 2 IF .DIR_MODE 

; 6350 0765 2 AND™ .MAILSGL _FLAGSCMAIF_V_ISAM] 

s 63) 0766 : THEN BEG! 

: 632 0767 MSGNUM = MAX(.MAILSL_MSG_NUM-2*(.MAIL$SL_OUTLINES=-7),1); 

s 635 0768 3 IF MAILSF IND i MSG(.AMSGNOM,-1,1) 

: 634 0769 3 THEN MAICSDIRECTORY<. DIRFULL _FLAG); 

; 635 0770 3 DIR CAG “g~ 
: 636 0771 3 IF “MAILSL MSG_STS 

3 637 14: 3 THEN DIR_FCAG = 1; 

; 638 077 3 RETURN TRUE;~ 
; 639 0774 2 END; 

; 640 0775 2! 

; on pers § : If positioned at the first message, then signal no more messages. 
; 643 0778 ¢ if (.MAILSL_MSG_NUM = 1) LEQ 0 
3 644 0779 THEN BEG 
3 645 0780 3 IF YO itE _FLAGSCMAIF _V_ISAM] 
> 646 0781 4 THEN BEGI 

: 647 0782 4 “AALLSL NMSG EQL 0 

3; 648 0783 4 HEN MAILSL _-MSG_STS = MAIL$_NOMSGS 

3: 649 0784 4 it SE MAILS$L-MSG_STS = MAILS_ _NOMOREMSG; 

; 650 0785 4 SIGNAL (.MAIL$L_ASG_STS); 
3: 651 0786 4 END 

3 63¢ 0787 H ELSE ant Oe, RAILS _NOMOREMSG) ; 

s 63 0788 RETURN TRUE; 

: 654 0789 § END; 

3 622 B7o4 EDIT_FLAG = CLISPRESENT(SD_EDIT); 

; o2t tae 4 : If positioned past the last message, then display the last message. 

: 659 0794 2 IF .MAILSL_MSG_STS EQL MAILS$_NOMOREMSG 

: 660 795 THEN BEGIN 

3; 661 796 IF .MAILSGL_FLAGSCMAIF_V_ISAM) 

3 666 797 4 THEN BEGIN 

: 66 0798 4 tee ee 1_MSG(.MAILSL_NMSG,~-1); 

; 664 0799 4 IF N -MAICSL T 

3; 665 0800 4 PHEW (SIONAL C MAILSL -MSG_STS); RETURN TRUE); 


o 7 
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-00 DISKSVMSMASTER: CMAIL. SRCJCMDS.B32;1 (11). 
; 801 4 MAILSREWIND_I_MSG(); 
: $e Oso ¢ " 
: 668 080 ELSE MAILSFIND_MSG(. MAILSL _MSG_NUM) ; 
; 669 0804 READ MESSAGE. EDIT_ FLAG); 
; 670 0805 RETURN TRUE; 
; 671 0806 END; 
; 7 ts i Otherwi just displ h i 
5 : erwise, jus Splay the previous message. 
: 67% 0809 5 i Sistine: ° 
: 675 0810 IF_.MAILSGL_FLAGSCMAIF_V_ISAM] 
; g7¢ 8B 12 sree IF MALLSF IND MSG(.MAILSL_MSG_NUM = 1,-1) 
: 678 $B18 N MATCOREGSND t MSGT) 
; 679 0814 EL se. if NNOt -MAILSL d STS 
3 ony Baie ; THEN RETURN SIGNAL CT MAIL$L_MSG_STS); 
; 68 0817 2 ELSE MAILSFIND_MSG(. MAILSL _MSG_NUM=1); 
; 68 0818 § READ_MESSAGE(.EDIT_FLAG); 
; 684 0819 
; 685 0820 2 RETURN TRUE 
; 686 0821 2 
; 687 0822 1 END; 


07FC 00000 ENTRY MAILSCMD_BACK Save R2,R3,R4,R5,R6,R7,RB,- 3 0746 
5A 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R10 : 
59 FBBA CF 9E 00009 MOVAB SD_EDIT, R9 ; 
58 000000006 00 9E 90005 MOVAB MATLSL_NMSG, R8 F 
57 Hane Ne 00 9€ 0001 MOVAB MAILSFIND_I_MSG, R7 3 
56 00000000' 00 9€ 0001¢ MOVAB DIR FLAG, RO ; 
55 000000006 00 9€ 0002 MOVAB MAICSL_MSG_NUM, RS : 
54 000000006 00 9c OO002A MOVAB MAILSGC FLAGS, R4 : 
53 000000006 00 9E 00031 MOVAB MAILSL_MSG STS, R3 ; 
3E 02 A6 ES 00038 BLBC  DIR_MODE, 3$ + 0764 
3B 64 €E9 0003C BLBC MAICS$GL_FLAGS, 3$ : 0765 
51 65 DO 0003F MOVL § MAIL$L_ASG_NUM, R1 : 0767 
50 000000006 00 00 00042 MOVL. MAILS$LTOUTCINES, RO : 
50 02 C4 00049 MULL2 #2, RO : 
51 50 ¢€2 0004C SUBL2 RO, R1 : 
50 OE Al H O04 MOVAB 14(R1), RO : 
03 14 00053 BGTR 1$ ; 
50 01 00 00055 MOVL #1, RO F 
01 DD 00058 1$ PUSHL #1 : 0768 
7E 01 CE 00034 MNEGL , Prue : 
50 DD 0005p PUSHL msGNy ; 
67 03 FB O0>F CALLS # MAILSF IND. 1_MSG : 
0B 50 E 062 BLBC =_-»RO,. 2 : 
7E 01 Ab 9A 0006 MOVZBL ay ULL_FLAG, -(SP) : 0769 
000000006 00 01 FB 00069 CALLS MAICSDIRECTORY : 
66 94 07 2$ CLRB  =sdDIR_FLAG : 077 
58 6 £9 007 BLBC MAICSE MSG_STS, 9$ : 077 
66 04 0 0007 MOVB #1, DIR_FLAG : 077 
3 11 00078 BRB 9$° : 077 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS if 
v04-000 14 4 :16 — DISKSVMSMASTER: CMAIL. SRCICMDS.B32;1 (11) | 
01 D1 OOO7A 3$ CMPL §MAILSL_MSG_NUM, #1 : 0778) 
23 14 9070 BGTR 7 : 
18 4 €9 0007F BLBC MAILS$GL_FLAGS, 6$ : 0780, 
9 3 90 Q sit MAILSL_AMSG ; 0782) 
63 007E804A F 0G 3 6 MOVL #8290378, MAILSL_MSG_STS : 0783) 
63 007E8042 g DO OOO8F 4$: MOVL § #8290370, MAILSL_MSG_STS + 0784 
$3 DD 009% 5$: PUSHL  MAILS$L_MSG_STS : 0785. 
0 11 0009 BRB $ : 
007E8042 BF DD O09, 6$ PUSHL #8290370 : 0787 
gf 11 pa9 BRB 8$ $ 
DD 000A2 7$ PUSHL R9 + 0790 | 
000000006 00 gi FB OOOA4 CALLS #1, CLISPRESENT : 
52 ; DO 000AB MOVL RO, EDIT_FLAG ; 
007E8042 2&F 63 D1 OOAE CMPL - MAIL$L_MSG_STS, #8290370 + 0794 
1¢ if 008 BNEQ 11$ : 
15 64 €9 00087 BLBC §_ MAILSGL_FLAGS, 10$ + 0796 
7E 01 CE OO0BA MNEGL #1, -(SP) + 0798 
68 DD 000BD PUSHL MAILSL_NMSG : 
67 0¢ FB OOOBF CALLS #2, MATLSFIND_I_MSG F 
50 63 D0 900¢e MOVL MAILSL MSG_STS, RO : 0799 
1D 50 €8 000C BLBS RO, 128 : 
50 DD 000C8 PUSHL + 0800 
6A 01 FB OOOCA 8$: CALLS #1, LIBSSIGNAL ; 
3B 11 000CD 9$: BRB 17 : 
65 DD OOOCF 10$:  PUSHL MAILSL_MSG_NUM > 0803 
29 11 00001 BRB 15$ ; 
50 65 01 ¢3 00003 11$:  SUBL3 #1, MAILSL_MSG_NUM, RO + 0812 
20 64 €9 00007 BLBC MAILSGL_FLAGS,~14$ + 0810 
7E 01 CE OOODA MNEGL #1, -(SP) : 0812 
50 DD 000DD PUSHL F 
67 02 FB OOODF CALLS #2, MAILSFIND_I_MSG : 
09 50 €9 000E2 BLBC * : 
020000006 00 00 FB OOOES 128: CALLS #0, MAILSREWIND_I_MSG + 0813 
15 11 OO0EC BRB 16$ : 
50 63 DO OOOEE 138 MOVL § MAILS$L_MSG_STS, RO > 0814 
OF 50 €8 OO0F1 LBS RO, 168 ; 
50 DD 000F4 PUSHL > 0815 
6A 01 FB 000F6 CALLS #1, LIBSSIGNAL : 
04 000F9 RET : 
50 DD OOOFA 14$:  PUSHL RO + 0817 
000000006 00 01 FB OOOFC 15$: CALLS #1, MAILSFIND_MSG ; 
52 0D 019 16$:  PUSHL EDIT_FLAG : 0818 
FC75) CF 01 FB 0010 CALLS #1, READ_MESSAGE ; 
50 01 DO 0010A 17$:  MOVL #1. RO : 0820 
04 0010 RET : 0822 
; Routine Size: 270 bytes, Routine Base: S$CODE$ + 0611 


eee ee ee - --—- 
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0004 00000 
52 00000000" 00 9€ 00002 
16 6¢ E9 00009 
7E 01 A2 9A Q000C 
00000000G 00 01 FB 00010 
0B 00000000G 00 €8 00017 
62 94 OQOOIE 
8! 11 B08 0 
1 DD 00022 
FCD2=sCF 01 FB B28 4 
50 01 00 00029 
04 0002C 
; Routine Size: 45 bytes, Routine Base: S$CODES + 071F 
3s 20 0854 1 
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bad 
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If the Last command was a READ command, 


If the last 


! If more to display 


! If no more messages 


then clear flag 


; 689 0823 1 GLOBAL ROUTINE MAILSCMD_CONTINUE = 

; 690 B24 1 4+ 

: 24 $ 5 i } FUNCTIONAL DESCRIPTION: 

; 69 08 5 1! This is the <RETURN> command action routine and is called to continue 
> 694 0828 1! the Last sisptey type command. 

; 695 0829 1! then the READ command action routine will be called. 

; 696 0830 1! command was a DIRECTORY command and there are more messages to be 
; 697 ett 1! displayed, then the DIRECTORY routine will be called. 

; 698 08 ¢ 1! 

: 699 08 1 ! INPUTS: 

; 700 8 6 1! 

; 701 > i DIR_FLAG = 1 if Last command was a DIRECTORY command and there are 
:; 70 0836 1! more messages to be displayed. 

; 70 0837 1! 

: 704 0838 1 ! OUTPUTS: 

; 705 0839 1! 

; 706 0840 1! Appropriate action routine selected. 

; 707 0841 1 !-- 

; 708 oats BEGIN 

; 709 084 IF .DIR_FLAG 

; 710 0844 THEN BEGIN 

3 7 0845 MAILSDIRECTORY( .DIRFULL_FLAG); 

3; frie 0846 IF NOT .MAIL$L_MSG_STS 

3 7135 0847 3 

; 6714 0848 3 DIR_FLAG = 0; ! 

3s 715 0849 3 END 

; 716 0850 2 ELSE 

3; 77 0851 2 MAILSCMD_READ(1); 

; re bees 2 RETURN TRUE 

; 719 0853 1 END; 


LSCMD_CONTINUE, Save R2 
AG; R2 


IL$ 
R_FLAG; 
R-FLAG, 1$ 
RFULL_FLAG, -(SP) 

MAICSDIRECTORY 
iL$L_MSG_STS, 2$ 
R_FLAG 


, MAILSCMD_READ 
* RO 
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et ss 


; 
59 
60 
61 
62 


08 


21 bytes, 


oe TELL CREATED(DESC) = 
FUNCTIONAL DESCRIPTION: 


18-5 o-19 1 oR 90:42 147: 5 
14-Sep-19 716 


Signal that an ISAM file was created for the copy command 


000000006 00 


Routine Base: 


SIGNAL (MAIL$_CREATED,1,.DESC); 


0000 00000 


A 
007E1071 n | 


WFR 
onmoogo 


1) 
D 
D 0000 
B 
4 


SCODES + 074C 


TELL_CREATED: 
oW RD 


| 
Liss-32 v4.0-742 Page 31 
MASTER: CMAIL.SRCJCMDS.B32;1 (1 | 
| 
| 
| 

3 0833 

:; 0862 
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yOLt000 et) it ee iL age 43 


« SRCICMDS.B32;1 (14), 


: i 1 0 $3 GLOBAL ROUTINE MAILSCMD_COPY = : 
; f g 9 } FUNCTIONAL DESCRIPTION: s 
.. i 8 1 i This is the COPY command, which takes a copy of the current message : 
; f ase ! and copies it to the specified folder/fite | $ | 
5 | . 
: 738 0 $3 1 i-- | 3 
; 759 0871 BEGIN 3] 
; 740 bere LOCAL | 
; re] 0873 COPY_FLAGS : $BBLOCK([4); | 3 
: 76 bees CLISGET_VALUE(SD_FOLDER_NAME ,DYN_DESC); 3 
: 74h P 0876 IF _ERR(CHECK FOLDER(DYN-DESCS;, 3 1 
: 745 087 RETURN STATUS) : | 
: 746 0878 | 5] 
3; 747 0879 COPY_FLAG 0; 3] 
; re peay COPY “FLAGSEMCR® V_ALL] = CLISPRESENT(SD_ALL) AND 1; | : 
: 730 OB8¢ ¢ CLISGET_VALUE(SD_FILE,DYN_DESC_2); | | 
; P36 0884 2 IF NOT .COPY “PL ASSCRCR V ALL | : | 
Be 0885 AND (IF [MAILSGL_FCAGS KALE -V ISAM | : | 
: 754 0886 THEN .MATL$L_CURMSG EOL 0 : 1 
: 755 0887 ELSE NOT MAICSREW WIND MSG()) 71 
: 736 0888 THEN RETURN SIGNAL (MAIL$_NOTREADIN); : } 
: 758 0890 2 IF CLISPRESENT(SD CONF IRM) :1 
: 759 0891 THEN COPY_FLAGSCMCR_V_CONFNEW] = : 
: 761 $898 2 MAILSCOPY MSGS(DYN_DESC_2,DYN_DESC,.COPY_FLAGS, TELL_CREATED); : 1 
: 762 0894 2R TROE | 
: 763 0895 1€E : 
s | 
s 1 
oy 
007C 00000 -ENTRY MAILSCMD_COPY, Save R2,R3,R4,R5,R6 : 0863 21 
56 000000006 00 9€ 0000 MOVAB CLISPRESENT, : : 
55 000000006 00 9€ 000 MOVAB CLIS$GET VALUE, R5 ; el 
54 00000000' 00 9€ 9019 MOVAB DYN_D R4 ; 31 
53 F914 CF 9E 0001 MOVAB SD_FOLDER_NAME, R3 : 27 
i BB dic PUSHR #*A<R3,R4 > 0875 21 
65 9 FB IE CALLS #2, <tifscer _VALUE : 7 
4 dD 000 PUSHL : 0877 3 | 
FC24 OCF gi FB 00 3 CALLS #1, CHECK_FOLDER ; 3 | 
67 £ 99 BLBC STATO s, 58 ; : 
52 D4 00028 CLRL  COPY_FLAGS : 0879 3 | 
FF74 C3 9F 0002D PUSHAB $b. ACL : 0880 3 | 
66 gi FB 99 1 CALLS #17 ¢ ISPRESENT ; 3 | 
52 01 01 0 F INSV #1, COPY_FLAGS 3 e 
08 Ad OF 00 9 PUSHAB DYN Desc" ; 0882 3] 
EC a3 oF C PUSHAB SD_FILE ; 3 | 
$5 F CALLS He, ¢ CLISGET uf ; Z| 
29 2 1 € 42 BBS OPY FLAGS, 3$ > 0884 | 3 | 
0A 000000006 00 €E9 00046 BLBC MAIL SoL FLAGS, > 0885 : 


7 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS bs 1984 5 AX-11 Bliss 
SS ESSE IBE ARNE Wadia hi 
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1 
1 
000000006 00 b 4 TSTL § MAILSL_CURMSG 
ee ee 
000000006 00 09 Fe a8 1$ CALLS tf MAILSREWIND_MSG 
00768022 BF DD 00061 28 PUSHL #8290338 
000000006 00 01 FB 0087 CALLS #1, LIBSSIGNAL 
94 Ad F O06 3$ PUSHAB SD_CONFIRM 
66 gf 43 00 g CALLS #1,  aallaaaiatd 
03 0 €9 0007 BLBC 4 
2 0100 8F AB 0078 BISw2 #256, Gory FLAGS 
FF6A gf oF 7D 4$: PUSHAB TELL C areD 
2 dD 00081 PUSHL COPY “FLAG 
54 DD 00083 PUSHL RG 
00000000G 00 " be 44 $0088 attics OyN-P feet Se opy MSGS 
50 01 DO 0008F ’ . 
04 00092 


MOVL #1, RO 
RET 


; Routine Size: 147 bytes, Routine Base: S$CODE$S + 0761 
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; 765 £36 1 GLOBAL ROUTINE MAILSCMD_DELETE = 

: 708 97 1 !4 

3 ree 43 ! FUNCTIONAL DESCRIPTION: 

: re 900 1! This is the DELETE command action routine and is called to delete 
: 770 901 1! the current message. 

: 771 902 1! 

3 ak 903 1 ! INPUTS: 

> OF Bane 1! 

; 774 905 1! Current message context. 

; 775 3208 1! 

5 76 907 1 ! OUTPUTS: 

; 77 906 1! 

; 778 909 1! The current message is deleted from the file it is in. 
; 779 Bets 1 !e- 

; 780 911 BEGIN 

; 781 at LOCAL 

; fe 091 DELMSGNUM, 

; 78 0914 SAVE_MSGNUM, 

: 784 0915 ALL_FLAG, 

3; 785 Orig STATUS; ' Routine status 
; 786 091 

; 787 0918 ALL_FLAG = CEE eSERALE ve ALL); 

; 788 0919 IF [MAILSGL_FLAGSCMAIF_V_TSAM) 

; 789 0920 THEN BEGI 

3 as 44 1 i Fe eee 50 SELIM OTN DESC) 

; a . 34 § 2 IF ERR(LIBSCVT_DTB(.DYN attr LENGTH], .DYN_DESCCDSCSA_POINTER], 
3; 796 0925 4 RETURN SIGNAL(MAIL BADVALUE, 1,DYN_DESC)); 

; 795 0926 4 IF Bert GTRU .MAILSL_fAM 

:; 796 8 7 & RETURN SIGNAL (MAICS =HOMSGS) | 

: 797 928 4 IF RAILS MSGTBLL.DELMSGNUM=1) EQL 6 

3 fas ee , ? THEN RETURN SIGNAL (MAILS_ DELMSG); 

3 tt ahh é Make sure we don't point past the end of the folder 

3 45 0938 2 o -MAILSL_MSG_NUM GTRU .MAILSL_NMSG THEN SAVE_MSGNUM = 0 
3; 804 0935 4 MSGNUM = MAILS MSG NUM; 

; 805 0936 4 Lease NUM = atte SGNU 

; 806 0937 4 waits CURASG = . HAILSL MSGTBLE. DELMSGNUM-1); 

: 807 0938 4 CT ATUSEMAI LSDELETE {MSC 

: 808 0939 4 f STATUS EOL MAICS-NOTREADIN 

3 09 940 4 OR .STATUS EQL MAILS_ DELWASTE 

3 10 0941 4 EN SIGNAL (. STATUS) = 

> 811 094¢ 4 MAILSL_MSG_NUM = .SAVE_MSGNUM; 

: 1 094 4 IF .SAVE_MS NEQ 0 

; «81 epee 4 THEN sPATLSL_CURASG = .MAILSL_MSGTBLC.SAVE_MSGNUM-1); 
s 14 945 & RETURN TRUE 

3 15 ae8 END; 

: 1¢ 94 ' F 

: : Bee ' Delete all the messages if /ALL 

2 8 950 i »ALL_FLAG 

3 $9 951 4 THEN BEGIN 

: 1 0952 4 IF CHSEQL(.MAIL$Q_CURFOLDERCOSCSW_LENGTH), 
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o 
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& 


AIL 
NEQ 


p*;.. 
MAILSL_MSG “eenne _MSGNUM; 
IF “SADE RSCNUM 


RETURN T 
, END; 


Just delete a single message 
STATUS . MAILSDELETE_1I port pee 


IF .STATUS EQL MAILS SN OTREADIN 
OR .STATUS L AAILS BE WASTE 
THEN SIGNAL Fa ATUS)~ 
- ELSE IF .STATUS THEN MAILSCMD_ERASE(); 
ELSE BEGIN 
IF .ALL FLAG 
THEN RETURN SIGNAL (MAILS$S_NOTISAM); 
STATUS = MAILSDELETE_MSG(); 
IF NOT .STATUS 
ns SIGNAL (. STATUS) 
MAILSCMD_ERASE(); 
END; 
TURN TRUE 


OFFC 00000 


C 
000000006 00 0 


ILS MSGTBLE. 1-1); 


$2393 VAX-11 Bliss-32 V4.0-742 
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EN-RATLSL CORMSG = .MAILSL_MSGTBLC.SAVE_MSGNUM-1); 


! Delete the message 


! Signal the failure 
! Erase the screen 


MAILSCMD DELETE, Save R2,R3,R4,R5,R6,R7,R8,- 


RI,R10, 
MAILSL | CURMSG R11 


LIBSSIGNAL, R 

D Sc, R 
MAICSL_MSG_NUM, R6 
#4, SP 


~ALL 
#1, CLISPRESENT 


rome d 


Bete Se Se Se Se Se Se Se Be . 


Sst 4 


7 | 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1bese -1984 00:47:25 -VAK=11 Bliss-32 v4.0-742 Page 36) 
yOLt000 12-80 8-138¢ 90:25:98 DISKSVMSMASTER:CMAIL.SRCJCMDS.B32:1 8 
D A MOVL RO, ALL_FLAG : . | 
33 000000006, 49 es ie BLBS MAILSGL FLAGS, 1$ : 0919 : | 
57 bb 47 1$ PUSHL eo : 0921 | ? 
F803 CF «OOF 00049 PUSHAB SD_DELNUM : g | 
000000006 00 EB 40 CALLS #2 LISGET_VALUE ; | 
L 54 BLBS RO, 2$ : 3 | 
00 1 57 BRW 10$ : 3 | 
7 dD 2A 2$ PUSHL SP + 0925 3 | 
04 A pp 90 C PUSHL DYN_DESC+4 : 3 | 
7E 67 3C 0005F MOVZWL DYN“DESC, -(SP) : 3 
000000006 00 9 Fe 0068 CALLS #3 Liestyt_pTe : 3 | 
OE E LBS STATUS, 3$ ; 3 | 
57 DD 0006C PUSHL 7 : ; 
4 DD O06 PUSHL #1 : : 
007E1112 8F DD 000 PUSHL #8261906 : : 
68 03 FB 0076 CALLS #3, LIBSSIGNAL : 
6A 6 D1 OOO7A 3$ CMPL  DELMSGNUM, MAILSL_NMSG + 0926 
08 1B 0007D BLEQU 4$ ; 
007E804A 8F DD O007F PUSHL #8290378 + 0927 
7D 11 00085 BRB 11 : 
50 69 DO 00087 4$ MOVL § MAILSL_MSGTBL, RO + 0928 
52 6f DO OO08A MOVL DELMSGRNUM, R2 $ 
FC A042 DS 0008D TSTL  =4(RO)CR24 : 
08 12 00091 BNEQ ; 
007E80B2 8F DD 00093 PUSHL #8290482 + 0929 
69 11 00099 BRB 11$ ; 
50 66 DO 0009B 5$: MOVL MAILSL_MSG_NUM, RO 3; 0933 
6A 50 D1 0009E CMPL RO, MATLSLINMSG : 
04 1B O000A1 BLEGU : 
54 D4 O00A3 CLRL § SAVE_MSGNUM : 
03 11 000A BRB 7$ : 
54 50 DO OOOA7 6$: MOVL RO, SAVE_MSGNUM + 0935 
66 of DO QOOAA 7$: MOVL DELMSGNUM, MAILSL_MSG_NUM ; 0936 
50 69 DO OO00AD MOVL §MAILSL_MSGTBL, : 0937 
68 FC A042 DO 00080 MOVL  =4(RO)ER2], MAILSL_CURMSG : 
000000006 00 00 FB 00085 CALLS #0, MAILSDELETE_1_MSG : 0938 
55 50 DO 000BC MOVL RO, STATUS ; 
007E8022 &F 55 D1 000BF CMPL STATUS, #8290338 : 0939 
09 13 000C6 BEQL ; 
007E80BA BF 55 Di 000C8 CMPL STATUS, #8290490 + 0940 
09 12 OOOCF BNEG F 
5 DD 00001 8s: PUSHL STATUS > 0941 
68 1 F D3 CALLS #1, LIBSSIGNAL F 
66 4 D0 D6 9S: MOVL § SAVE_MSGNUM, MAILSL_MSG_NUM : 094 
8 12 00009 BNEQ 17$ > 094 
11 000DB BRB 18$ + 0945 
5D E9 000DD 10$:  BLBC ALL_FLAG, 19$ : 0950 
31 00000006 D0 0 E MOVL #§ MAICSQ_CURFOLDER+4, R1 : 095 
0 90900006 p E MAILSQ-WASTEDESC+4, RO > 0955 
000000006 00 00 61 0006 D OQOOEE CMPCS MAILSQ“CURFOLDER, (R1), #0, - : 0952 
“ FB MAILSQ_WASTEDESC, (RO) ; 
007E80BA 8F DD OOOFE PUSHL #8290490 > 0956 
61 11 04 11$: RB 2 ; 
54 66 DO 00106 128:  MOVL §MAILSL_MSG_NUM, SAVE_MSGNUM : 0957 | 


MAILSCMDS 
v04-000 


; Routine Size: 


VAX/VMS PERSONAL MAIL 


394 bytes, 


5 Baie 
52 1 D 1 
8 1 1 
50 69 DO 00115 138: 
68 FC A042 D 116 
x 8 ase 
000000006 00 FB 001 9 
bg 127 148: 
53 D 129 15$: 
1B 0912C 
66 és 0 12— 16$ 
3 13 00131 
50 69 DO 00133 17 
68 FC A044 DO 4 6 
49 11 00138 18 
000000006 00 98 FB 0013D 19 
55 50 DO 00144 
007E8022 = BF 35 01 00147 
¢8 13 O0014E 
QO7E80BA = &F > 01 801 28 
1f 13 Bate 
2A 55 E9 00159 
4 11 0015C 
OA 3 €9 OO15E 20S: 
OQO7EB0AA 8F DD 00161 
68 01 FB 00167 21$: 
04 OO16A 
000000006 00 0O FB 00168 22$: 
55 30 00 Betts 
07 a2 «&8 Bete 
55 DD 00178 23$: 
68 01 FB QO17A 
07 11 0017D 
000000006 00 0O FB OO17F 248: 
50 01 00 00186 258: 
04 00189 


Routine Base: 


M 7 


UTILITY COMMANDS 19° gee } 
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SCODES + O7F4 


Sah ad 


a 


oR¢ ae oe! ; 


VAX=11 Bliss-32 V4.0-742 
DISKSVMSMASTER: ft 


ee NMSG, R3 
I 


{ 
mt L$L_MSGTBL 


(ROUTLS. MALLSL. CURMSG 


1, MAILS$L_MSG_NUM 
#6, MAI TLSDELETE 1 1_MSG 


R3 

$ 
AVE. MSGNUM, MAILS$L_MSG_NUM 
MAIL$L_MSGTB 
-4(RO)CSAVE SU SGNUMD, MAILSL_CURMSG 


25$ 
#0, MAILSDELETE_1I_MSG 


STATUS, #8290490 
23$ 
ai atus. 25$ 
a290 LAG. 22$ 

oa TaSSIGNAL 

4% HO eh MSG 
STATUS, 248 

TATU 

#1, LIBSSIGNAL 


#0, MAILSCMD_ERASE 
#1, RO 


° 


AIL. SRCICMDS.B32;1 
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N 7 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 VAX=11 Bliss-32 V4.0-742 Pa 38 | 
V04=000 12 31382 99323598 DISKSVMSMASTER: CMAIL.SRCICMDS.B32;1 9°16) | 


H He 093¢ ! — ROUTINE MAILSCMD_DIRECTORY = : 
5 Se +44) : FUNCTIONAL DESCRIPTION: : 
; 868 0998 1} 1yis is the DIRECTORY command action routine and is called to ; 
; 869 0999 1! disp Play a summary of all the messages in the current file or a 3 
; 870 1000 1! specified file. 3 
: 871 1001 1! | 3 
3 ere 1906 1 ! INPUTS: 3 
; 87 1005 1! 3 
: 874 1006 1 ! OUTPUTS: 3 
; 875 1005 1! 3 
; a76 1gR8 } DIR_FLAG = 1 if more messages to display. : 
; 878 1008 1! A summary of each message is displayed on SYSSOUTPUT. 3 
3: 879 1009 1 !<- 3 
; 880 1010 2 BEGIN F 
; 881 1011 2 ; 
3; 882 a 2 LOCAL F 
: 883 101 2 FOLDER he | Sane _5_BLNI, : 
: 884 1014 2 START_ASG 5 
; 885 1015 2 START “Fike 3 
3 6886 1016 2 STATUS, 3 
; 887 1017 2 NEW FILE; 3 
; 888 1018 § | 3 
; 889 1019 DIR_FLAG = 0; : 
; 890 1020 2 DIRFULL_FLAG = 0; ‘ 
; 891 1021 2 INIT SDESC(FOLDER_DESC); : 
: 892 1022 2 IF CCISGET_VALUE (SD_FOLDER_ NAME ,DYN_DESC_3) ; 
: 893 1023 3 THEN BEGIN : 
3 894 1024 3 FOLDER_DESCCDSC$wW_ “ye tt -DYN_DESC_3CDSC$W_LENGTHI; é 
; 895 1025 3 FOLDER-DESCCDSC$A_P = .DYN DES est_ SCDSCS$A_ POINTER]; ; 
; 896 P1026 3 IF ERRTCHECK FOLDERCF OLDER R_DESC);> : 
; 897 1027 3 RETURN .STATUS); : 
; 898 1028 2 END; : 
3; 899 1029 2 INIT_SELECT_DATA 

: 900 P 1030 ’ IF _ERR(PARSE SELECTION QUALS();, 

3; 901 1031 RETURN .STATUS); 

: 902 1036 2 

; 903 103 § IF pe PL BSS a NEW] 

3; 904 1034 NOT .MAILSGL tenon _V_DFMSG) 

: 905 1035 3 THEN MAILSCLOSE “FILE | 

3; 907 1037 START tw = CLISGET_VALUE(SD_START,DYN_DESC_2); 

; 908 1038 DIRFUCL_FLAG = CLISPRESENT(SD-FULL); 

; 909 1039 IF CLISPRESENT(SD_ FOLDER) 

: 910 1040 THEN 

> 911 P 1041 IF _LERR(MAILSOPEN_ IF (); 

i gle 1048 RETURN .STATUS); 

. oe 104 IF a -MAILSGL _FLAGSCMAIF V_ISAM) 

3 6914 1044 THEN RETURN” SIGNAL (MAIC$~NOTISAM) 

s 915 1045 ELSE RETURN MAILSDIR _FOLBER(DYN_DESC_2); 

: 916 1046 2 

3; 917 1047 

; 918 1048 IF .START_FLAG 

; 919 1049 THEN BEGIN 

; 920 P 1050 IF _ERR(LIBSCVT_DTB(.DYN_DESC_2CDSC$W_LENGTH], .DYN_DESC_2CDSC$A_POINTER], | 
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a ek ee ee a ad dd 
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START_M 


RETU 
IF stant MSGNUM E 
N START UNSGNUM = 1; 


EN “i 
ELSE START_MSGNUM = 0; 


OFFC 00000 


RN aSIghALTMAILS. MBAOVALUE. 1,DYN_DESC_2)); 


NSC. MAILSL ~OUTLINES+7+1))) 


IF (NEW_FILE = NOT .MAILSGL_FLAGSCMAIF_V_FILOPN 
4 OR + COLDER DESC EDS Cou LENGTH] NEQ 0) 
3 OR (.SELECT“DATACO)] NEG 0)) 

THEN IF_ERR(MAILSOPEN IF (); 

TURN STATUS) 

IF .MAILSGL_FLAGSCMAIF_V_ISAM 

THEN BEGIN 
H IF .NEW_F 

R “MAILS NMSG EQL 0 
3 THEN IF WERRUMAILSSELECT _MSGS(FOLDER_DESC,SELECT_DATA);, 
3 yRe tu ATUS)? 
; IF -MAILSL IN MSG EQL 3" 
N RETURN SIGNAL (MAILS _NOMSGS); 

3 IF START MSGNUM EQL 
4 THEN START_MSGNUM = (IF .NEW_FILE 
? na OR ( CRAICSLS _MSG_NUM LEQ 1) 
é ELSE MAX(1,MIN(, MALLSL MSG_NUM 
3 ELSE START_MSGNUM = MAX(1,MIN(. siARt LSS CNU 
; AICS$L ONNSG=. MAILS$SL_OUTLINES+7+1)); 
3 IF MAILSF IND 1_MSG(.START_MSGNUM,1,1) 
; sai THEN MAICSDIRECTORY( .BIRFULL_FLAG); 
3 ELSE BEGIN 
3 IF ~ SELECT DATACO] NEQ 0 
3 FOCDER_DESCCOSC$W_LENGTH] NEQ 0 
3 efi TART wat: -DIRFULL_FLAG 
3 TURN SIGNAL (MAIL$ NOTISAM); 
; ifs MALE SFIND _MSG(1,.NEW_FILEY 
5 a NAILSDIRECTORY(O); ! Display directory 
2 o 
2 DIR_MODE = 1; 
: LF ,MAILSL_MSG_STS ! If more to display, 
2 DIR_FLAG = 1; ! then set flag 
2 RETURN TRUE 
1 END; 


.ENTRY MAILSCMD_D 

R8,RILRIO 
MOVAB MAILSL_MSG 
MOVAB LIBSSIGNAL 
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} 
OC 12 0019 BNEQ 23$ ; 
04 AE B5 0019 TSTW FOLDER, DESC : 1085. 
: 12 0019 BNEQ 2 : | 
04 3 €8 0019 BLBS § START_FLAG, 23$ + 1086 | 
A FD AS £9 OO19A BLBC =O OD RFUCL FLAG, 25$ ; | 
OO7E80AA a DD OO19E 23$: PUSHL  #829047% ; 1087 | 
6A 1 FB OO1A4 24$: CALLS #1, LIBS$SIGNAL : 
04 001A7 RET ; 
52 DD OO1A8 25$ PUSHL NEW_FILE + 1088 
01 DD OO1AA PUSHL #1 : 
000000006 00 08 FB OO1AC CALLS #2, MAILSFIND_MSG : 
09 3 £9 0018 BLBC ~=—_- RO, 278 ; 
E D4 001B6 CLRL 0—_- = $P) t 1090 
060000006 00 07 FB 001B8 ‘ $: CALLS “i, MAILSDIRECTORY : 
FE AG 01 90 OO1BF 27$:  § MOVE MODE + 1093 
04 000000006 00 €9 001C3 BLBC ATA te MSG_STS, 28$ + 1094 
FC AS 4 90 OOI1CA MOVB #i, DIR_F LAG ; 1096 
50 1 00 OO1CE 28$ MOVL #1. RO ™ + 1097 
04 00101 RET + 1098 
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Routine Base: 
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1 
0D 90028 
EB G08) 
BO 900% 
BD 90030 
4 Be 
FB 00047 1$: 
Fe 004C 
3 tH 
EY 90084 
FB 0005D 
D4 00064 2$: 
8 00066 
13 00068 
D6 O006A 
EF Bp 0eS 3$: 
CB 0007 
04 00076 
D5 00078 
13 Base 
D6 0007C 
CA OOO7E 4$: 
Dé 00081 
E8 00084 
D5 00087 
12 00089 
FB 00088 5$ 
—e9 Bones 
E9 00093 6$ 
DD 00096 
9F 00098 
FB 0009B 
E9 OOOA 
DD OQOOA 
DD O00A7 
DD OO0A9 
FB OOOAF 
11 000B2 
DD 000B4 7$: 
FB OOOBA 
DO tit 8$: 
04 000CO 9$: 
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716 DISKSVMSMA 


ISGET_VALUE 


£3; FOLDER DESC 
C-3+4, FOLDER_DESC+4 


FOLDER 


SELECTION. QUALS 
849° 28 

te wit. 

ipeepeerg: 

3$ 


R 
iS, #1, MAILSGL_FLAGS+1, R1 
RO. R1. RO 


R 
Be 


NEW j Fite! 
MAICSL_ 


$F ns gen IF 
MAILSCL FLAGS, 7$ 
FOLDER DESC 

Ree MATLSSELECT MSGS 
STATUS, 9$ 

RAILSL -NMSG 


BSA2c 
~™ Sad 
>. 


r950¢ PIBSSIGNAL 


290474 
#1, LIBSSIGNAL 
#1, RO 


2 
TER: CMAIL.SRCICMDS.B32; 1 
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GLOBAL ROUTINE MAILSCMD_MOVE = 
FUNCTIONAL DESCRIPTION: 


This is the MOVE command action routine and is called to move 
the current message from one isam folder to another in the same file. 


INPUTS: 
Current message context. 
OUTPUTS: 
i Current message is filed in the specified folder 


COPY FLAGS = 0; 
IF NOT .MAILSGL_FLAGSCMAIF_V_FILOPN) 
THEN RETURN SIGNAL (MAICS_NOTREADIN) ; 


IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM] 
THEN RETURN SIGNAL (MAICS$_NOTISAM); 


IF _ERR(CLISGET_VALUE(SD_FOLDER_NAME ,DYN_DESC);, 


ETURN .STATUS); 
CONF IRM_FLAG = CLISPRESENT(SD_CONFIRM) AND 1; 


IF ERR( CHECK FOLDER(DYN_DESC);, 
RETURN .STATUS); 


COPY_FLAGSCMCR_V Aer. = CLISPRESENT(SD_ALL) AND 1; 

IF NOT .COPY FCAGSCMCR_V_ALLJ 
AND .MAICS$L_CURMSG EOL 

THEN RETURN SIGNAL (MAIL$_NOTREADIN) ; 


IF COPY _FLASSERCR VALLI, 


~MAILSL 
THEN RETURN SIGNAL (MAIL$_NOMSGS); 
CLISGET_VALUE(SD_FILE,DYN_DESC_2); 


IF .DYN DESC_2CDSC$W_LENGTH] EQL 0 
THEN BEGIN 


: Move to a folder in the same file 


iF NOT .COPY_FLAGSCMCR_V_ALLJ 
THEN MAICSFILE_1_MSGTDYN_DESC, .CONFIRM_FLAG) 
ELSE BEGIN 
SAVE_MSGNUM = .MAILSL_MSG_NUM; 


oO 


FB AAAI AION IIPUNIUINIPUPOTIPUPUNIPUNIPUPPUNPUNIPPUIIIIN 4 
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VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1-5 Sep =1386 90:92 225 VAX=11 Ol ieee =32 V4.0-742 Page 46 
14-Sep :42:16 DISKSVMSMASTER: (MAIL. SRCJCMDS.B32;1 (18) | 


<3 
R= 
- 
Se 
3 
7A 


: 1073 1201 4 If .MAILSL_NMSG GTRU 0 | 
: 1074 1 ; 4 (HEN INCRU"I] FROM 1 v0 -MAILSL_NMSG 
: 1075 1 DO BEGIN 
: 1976 1204 MAILS. CURMSG = gales MSGTBLL.1-1); | 
> 107 1205 -MATLSL_CURMSG 
: 1078 1 06 . N BEGIN 
: 1079 1 0 £ MAILSL_MSG_N 

; 1980 1208 6 STATUS = aRILS $F iE fi MSG(DYN _DESC,.CONFIRM_FLAG); 
+ 1081 1209 6 IF .STATUS EGL RMSS_RNF 
; 1089 1210 $ THEN EXITLOOP; 
; 108 1211 END; 

; 1084 1 le 4 END: 
> 1085 1213 4 MAIL MSG_NUM = we sAve _MSGNU"; 

: 1086 1214 4 CAVE _MSGNUM d 
: 108 1215 4 THEN MAILSL _CURMSG = -MAILSL_MSGi6LC.SAVE_MSGNUM-1]; 

> 1088 1216 D: | 
: 1089 1217 END 

: 1090 1218 3 ELSE BEGIN 

: 1091 1219 ' 

3 1” : $9 Move to a folder in another file. 
: 1094 i 2 iF .CONFIRM_FLAG | 
: 1095 1 THEN COPY VAFLAGSCMCR V. CONF NEW] = TRUE; 

> 1096 1224 COPY FEAGSEMCR Y ELMSG] = 

: 1097 1225 MAILSCOPY sASGSTDING bese “2,DYN YDESC, .COPY_FLAGS, TELL_CREATED); 

> 1098 1 6 END; 
3; 1099 1 
: 1100 1228 2 RETURN TRUE 
+ 1101 1229 1 END: | 


OFFC 00000 -ENTRY MAILSCHD MOVE, Save R2-R3,R4,R5,RO,R7,RB,- ; 1144 
5B 000000006 00 9€E 00002 MOVAB CLISGET VALUE, R11 ; 
2A 000000006 00 9 00009 MOVAB MAILSL_ASG_NUM, R10 : 
59 000000006 00 9€E 00010 MOVAB MAILSL~CURMSG, R9 ; 
38 F464 CF 9E 00017 MOVAB SD_FOLDER_NAME, ; 
57 00000000" G9 96 0001 MOVAB DYN DESC, R : 
D4 000 CLRL a FLAGS > 1167 | 
08 000000006 00 03 £0 000 BES AS, MALLSGL_FLAGS#1, 25 > 1168 
OO7E8022 BF DD 000 : 1$ PUSHL #8290 ; 1169 
08 000000006 00 €8 00035 2s BLBS naussth FLAGS, 3$ : 1171 
OO7EBOAA FD 000 PUSHL 047% : 1172 
4E 11 0004 BRB | 
27 DD 00044 38: BUSHL ORY : 1175 | 
DD 00046 PUSHL RE : 
68 9 FB b CALLS CLISGET _VALUE : 
16 F 048 BLBC = STATU ; 
000000006 00 % OF Fe o00sT CALLS” $9.¢0 C ne RESENT | 
56 0 01 Q EF 88 EXTZV #0, #1. RO. CONF IRM_FLAG : 
DD 00050 PUSHL ; 1180 | 
F738 CF 1 FB 0005F CALLS #1, CHECK _FOLDER ; | 
! 
} 


nla 


55 


, 000000006 
8 


16 


000000006 


0D 


000000006 


000000006 
00018282 


000000006 


01 
FF74 
o} 
1 
5 
55 
000000006 
007E804A 
00 
08 
EC 
68 
08 
55 
00 
53 
54 000000006 
52 
51 seats * x 
69 FC A 
6A 
00 
8F 
54 
6A 
28 000000006. 
6 FC A 
9 
22 mn 
Fade 
08 


50 


= 
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VAX/VMS PERSONAL MAIL UTILITY COMMANDS 


w 
oOo 


SENN MOM NOOO WENN NOM NAUMANN NO PMNS NNON SH BMO-9 OO" 


tf 


8 O87 
4 7 
3 Hs 
E ? 
D 7¢ 
1 43 
5 Hs 
2 Be 
DD 8 
FB 
a 
9F 0009D 
fe So Ag 
BS OOOA 
12 OOOA 
EO OOOA 
DD 4 
DD 000A 
FB 0008 
11 0008 
DO 00089 
0 008 
000C 
000 
00 
00 


ouo"Woroo OMmPrm— oOo 90 -0C 9 =O T0OC0°C0 -]$C C0 —-0 — 

FOow "09 7000 OOW0D Ow" WO GV Owoo-" 0 

RNIN 3 @ @ 2OOCOCOTABANABAMMMOCTCCTVINMROAO 

> NOCD OUVI-2 9 OAIND OO £ | MOOI WOO POUWO ONOM 


8 
Sep-19 
-Sep-19 


own 
wow 


10$: 


14$: 


16$: 


Be 92:22 


‘2 VAX-11 Bliss-32 V4.0-742 
: AIL.SRC 


DISKSVMSMASTER: [MAI 
BLBS § STATUS, 5$ 
RET 
PUSHAB SDA 
CALLS #17 cL SPR ESENT 
INSV RO, - COPY FLAGS 
BBS Coby , 6$ 
TSTL hal. a vALAGs, 
BEQL 1s 
BBC copy af LAcs. 34 
TSTL mA Ais NASG 
BNEO 
PUSHL BS 90378 
CALLS #1, LIBSSIGNAL 
PUSHAB DYN_DESC_2 
PUSHAB SD 
CALLS #27 CLISGET_VALUE 
TSTW DYN_DESC_2 ~ 
BNEQ 1487 
BBS #1, COPY_FLAGS, 9$ 
PUSHL  CONFIRM_FLAG 
PUSHL 7 
CALLS #2, MAILSFILE_I_MSG 
BRB 16$ 


MOVL MAILSL-NMSG, R4 x2 
BEQL 13$ 
MOVL #1, 1 
BRB 12$ 
MOVL MAILSL_MSGTBL, R1 
MOVL -4(R1)C1], MAILSL_CURMSG 
BEQL 11$ 
MOVL I, MAILSL_MSG_NUM 
PUSHL CONFIRM_FCAG 
PUSHL R7 
CALLS #2, MAIL SFILE 1_MSG 
CMPL = STATUS, #9899% 
BEQL 13$ 
INCL =I 
CMPL ~=sidT,_ RG 
BLEQU 16s 
MOVL § SAVE_MSGNUM, MAILS$L_MSG_NUM 
BEQL 16$ ~ 
MOVL MAILSL_MSGTBL 
MOVL s4ar )ESAVE BL SGNUMD, MAILSL_CURMSG 
BLBC CONE IRM FLAG, 15$ 
BISw2 #256, COPY_FLAGS 
BISB2 #128, COPY-FLAGS 
PUSHAB TELL CREATED 
SHL  COPY"FLAGS 
PUSHL R7 
PUSHAB DYN _DESC_2 
CALLS #4, “MAILSCOPY MSGS 
HOVL nn: RO 


JCMDS .B32; i? 


Pe Pe Se Se Ge Ge Se Se Ge Se Ge Se Se Se Ge Se Se Gs Ge Ge Se Ge Se Ge Be Se Be Fe Be Se Be Se Be Se Fe Be Be Fe Fe Se Se Se Be Ge Se Fe Se Se Se Se Se Se Se Se Fe Be 


k 8 
I eet eee NRSSB=HSRS 98:23:48 UNMBRARPER MAIL SaeacHos.32,1 "29° 188 


; Routine Size: 299 bytes, Routine Base: S$CODE$S + 0C11 


; 
8 | 

MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1bese -1984 47:25 VAX-11 Bliss-32 V4.0-742 Page 49. 

v04-000 12-80 8=18e a DISKSVMSMASTER: CMAIL.SRCICMDS.832;1 ° nce 

3; 1103 1230 1 GLOBAL ROUTINE MAILSLOAD_LBRSHR = 

: 1182 1231 1 !44¢ 

8 1106 : ¢ ! FUNCTIONAL DESCRIPTION: | 

° . 

: 110 1234 1! Load LBRSHR if it has not been loaded 

: 1108 1235 1! 

3; 1109 1 § 1 !e<- 

3 1110 1 BEGIN 

3 1111 1238 

3 1336 1239 IF .MAILSA_OUTPUT th NEQ 0 

: 112 ! 9 THEN RETURN TRUE 

3 1115 1 ri} RETURN LIBSF IND_IMAGE =F VIL CSOE SCRE TOR('LBRSHR'), 

3 1116 124 SDESCRIPTOR('LBR opytrut _HELP* i 

3 1117 1244 MAILSA_OUTPUT_HELP) 

; 1118 1245 1 END; 


52 48 53 52 42 4C QOD3C P.ADH: .ASCII \LBRSHR\ ; 
00D4 -~BLKB 2 
00000006 tee P.ADG: .LONG 6 ; 
00000000" 00048 «ADDRESS P.ADH : 
50 4C 45 48 SF 54 55 50 54 55 4F 24 52 42 4 tees P.ADJ: ASCII eens OL 3 
QOOOOOOF OOD5SC P.ADI: .LONG 15 ; 
00000000" 00060 ADDRESS P.ADJ ; 
0004 00000 -ENTRY ory i ger att Save R2 ; 1230 
52 00000000" 00 3 00002 MOVAB MAILSA_OUTPUT_HELP, R2 : 
62 05 00009 TSTL MAILSAz OUTPUT_HELP ; 1239 
04 13 00008 BEQL yt ; 
50 01 DO 0000D MOVL » RO ; 1240 
04 00010 RET : 
52 DD 00011 1$: PUSHL R2 : 124 
E2 AF 9F 00013 PUSHAB P.ADI : 124 
C7 = AF «OOF 00016 PUSHAB P.ADG : 1242 
000000006 00 03 FB 00019 CALLS #3, LIBSFIND_IMAGE_SYMBOL : 
04 00020 RET ; 1245 


; Routine Size: 33 bytes, Routine Base: S$CODES + 0D64 


Be Se Be Se Be Be Se Se Se Se Se Se Se Ge Se Se Se Se Fe Se Se Se Fe Se Fe Fe Fe Fe se Fe ee Fe Gee Fe Se Se asses Fe Se Se Se Sees Se Se Se Se Se eese Se Sete tease 


0| 


yoesoo0 accreted apsommenta ten Ias ecach oso 18: sen 1944 93505:98 UES bimGmASFERScMAIC cReacmps.032;1 2% 288 


3 1} ° ! rk } ROUTINE HELP_HANDLER (SIGARG,MECHARG) = 

1 ; 1g48 1 | FUNCTIONAL DESCRIPTION: | 
; + 4 ; ! Turn fatal signals from LBRSOUTPUT_HELP into errors 
:11 1 1 ie. 

He ORES sa 

> 1129 1 22 SIGARG : REF $BBLOCK; 

> 1130 1 36 

: 1131 1 H 

: 3138 1589 

: 1134 1260 2 IF .SIGNAMECSTSSY SEVERITY) EQL STSSK SEVERE 

; i 5 | $] THEN SIGNAMECSTSS$V_SEVERITY] = STSS$K_ERROR; 

: 1137 1568 RETURN SS$_RESIGNAL 

3; 1138 1264 1 END; 


0000 00000 sett acute 


«WORD Save 1 thd a : 1246 

50 04 AC 04 C1 00002 ADDL3 #4, SIGARG 3; 1258 

04 60 03 00 €ED 00007 CMPZ7V #0. #3, 86)” > 1260 
05 12 0000C BNEQ : 

60 03 00 02 FO O000E INSV #2, #0, #3, (RO) + 1261 

50 0918 8F 3¢ 00013 1$: MOVZWL #2328, RO + 1263 

4 00018 RET : 1264 


; Routine Size: 25 bytes, Routine Base: S$CODE$S + 0D85 
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BIND 
SIGNAME = SIGARGCCHFSL_SIG_NAME] : $B8BLOCK; 
| 
| 
| 
| 
| 
| 
| 
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VAX/VMS PERSONAL MAIL UTILITY COMMANDS 


MAILS 
v04-000 


WN "SO OONAUEWN “OO ONOUSWNO 
MIFWN—OVDONOUM 


a a a nk ed ed ad od = 8 8 
DB ee a et ec ee a eed ed eed 


ee a ete oy BFP LINIIOL EY E> & E~ S~ ES SES 


FUNC 0@Onou 
Ok a dd dd 


POPIPEPSNIPONONoNoNPoNononononongngnyd 
OO 000000000009 09 090909 09 09 09 09 SINISE INO OOOO 


DONA WN—"OCOONOULSWN—OVOW 


GLOBAL ROUTINE MAILSCMD_HELP = 
i FUNCTIONAL DESCRIPTION: 


This is the HELP command action routine and is called to display 
help for specified commands and topics. 


INPUTS: 
OUTPUTS: 
Help for specified topic is displayed on SYSSOUTPUT. 
BEGIN 
BUILTIN 
FP; 

CLISGET_VALUE(SD_HELPKEYS,COMMAND_DESC); 'Get REST_OF_LINE 
MAILSCMB_ERASE()3 ‘Erase the screen 
IF _ERR(MAILSLOAD_LBRSHR();, 


RETURN TRUE); 


MAILSDISABLE_CTRLC(); 
.FP = HELP HANDLER; 
(.MAILS$A_OOTPUT_HELP) (MAILSPUT_OUTPUT,O 
COMMAND _DESC, $DESCRIPTOR( *MAILHELP 
ZREF (HLP$M_PROMPT OR HLP$M_ PROCESS 
HLPSM_GROUP OR HLPSM_SYSTE 


HL ’ 
MAILSGET_INPUT) ; 


MAILSENABLE_CTRLC(); 
RETURN TRUE 


50 4€ 45 48 4C 49 41 4D QOD9E P.ADL: .ASCII \MAILHELP\ 
A BLKB 2 


00000008 OODA8 P.ADK: ‘LONG 8 
00000000" OODAC "ADDRESS P.ADL 
000C 80008 -ENTRY MAILSCMD_HELP, Save R2,R3 
53 00000909" 00 9E 9002 MOVAB COMMAND DESC, 
52 F3FB CF 25 B86 OV SD_HELPREYS, R2 
5E 04 C2 0000E SUBL2 #47 SP 
0c 8B 00011 PUSHR  #*M<R2,R3> 
000000006 00 03 FB 00013 CALLS 2, CLISGET_VALUE 
000000006 00 FB OOOTA CALLS #0. MAILS$CMB_ERASE 
8F AF 98 FB 0021 CALLS #0, MAILSLOAD_LBRSHR 
37 E9 00025 BLBC STATUS 
000000006 00 00 FB 900 8 CALLS #0, MAILSDISABLE_CTRLC 
6p A3 AF i O02F MOVAB HELP HANDLER, (FP) 
0 00000000" 00 00 00033 MOVL §§ MAILSA_OUTPUT_HELP, RO 


9 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 90:90:92 
v04- 14-Sep-1984 12:42:16 
000000006 90 
AE F 
04 =A 
OBFO 


000000006 : 


PUSHAB RALLSG 
M47, 4 


04 MOVL 
PUSHAB 4(SP) 


C (SP) 
PUSHAB MAIL SP T_OUTPUT 
CALLS #0. MAILSENABLE_CTRLC 


000000006 
30 1$: MOVL #1, RO 


1 


fSowwansornon 
DPT EE EE Ow 
OounowNEOS 


ououmnovVvooTc Oo 


OOOCCOoCooO 


; Routine Size: 99 bytes, Routine Base: S$CODE$ + 0DB0 


32_V4.0-742 
R: CMAIL.SRCICMDS.B32;1 


-——— 


32 v4.0-742 . 3 
i age 23) 


9 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 18-Sep-1984 00:47:25 
v04- 4 :CMAIL.SRCICMDS.B32;1 | 


V liss- 
14-Sep-1984 12:42:16 D MASTE 


; 1176 1300 1 GLOBAL ROUTINE MAILSCMD_PRINT = : 
3 117 1501 1 !4+ | : 
; 1178 1 ¢ 1 ! FUNCTIONAL DESCRIPTION: ‘ 
; 1179 1305 17! ; 
; 1180 1304 1! This is the PRINT command action routine and is called to queue ; 
: 1181 1305 1! the current message for printing. ‘ 
3 Be 1 pg 1} . 
; 118 1307 1 ! INPUTS: : 
>; 1184 1308 1! : 
>; 1185 1309 1! Current message context. ‘ 
; 1186 1310 1! : 
: 1187 1311 1 ! OUTPUTS: z 
; 1188 1 \¢ 1! ; 
; 1189 bib mae Current message is added to specified queue for printing. ; 
; 1190 1314 1 !-- : 
3; 1191 1315 2 BEGIN : 
3 1192 1316 2 ; 
3; 1193 1317 2 LOCAL ; 
3 1194 1318 § N_COPIES : 
> 1195 1319 PRO_FLAGS : SBBLOCK(4); : 
: 1196 1320 § ; 
3 1197 1321 PRQ_FLAGS = 0; ; 
: 1198 1322 § PRQ_FLAGSCPRQ_V_NOTIFY] = CLISPRESENT(SD_NOTIFY); ; 
3; 1199 1323 IF TPRQ FLAGSCPRQ_V_FORCE] = CLISPRESENTTSD_PRINT)) : 
; 1200 138 THEN RETURN MAICSPRINT(0,0,.PRQ_FLAGS); ; 
3; 1202 1326 IF NOT (PRQ_FLAGSCPRQ_V_ALL] = CLISPRESENT(SD_ALL)) . 
; 1203 1327 3 THEN BEGI ; 
; 1204 P 1328 3 IF _LERR(CIF .MAILSGL_FLAGSCMAIF_V_ISAM] : 
: 1205 P 1329 3 THEN MATLSREWIND_1-M5G() " ’ 
; 1206 P 1330 3 ELSE MAILSREWIND_MSG());, ! Rewind current message : 
; 1207 1331 3 RETURN SIGNAL(.STATUS)); 

: 1208 lisse 5 

; 1209 1333 3 ELSE BEGIN 

; 1210 1334 4 IF (CIF .MAILSGL_FLAGSCMAIF _V_ISAM] 

> 1211 1335 4 THEN .MAILSC_NMSG EQL O 

: 1212 1336 4 ELSE .MAILSL_MSGBUFSIZ EQL 0) | 

3 1213 1337 3 THEN RETURN SIGNAL (MAIL$_NOMSGS); | 

3 1214 1338 2 ND; 

3; 1215 1339 2 

3; 1216 1340 2 N COPIES = 1; 

3 1217 1341 2 IF CLISGET_VALUE(SD_COPIES, COMMAND DESC) | 

: 1218 Pp 1366 2 THEN IF_ERR(LIBSCVT_DTB(. COMMAND DESCCDSC$W_LENGTH], 

; i$}? P 134 § . COMMAND _DESCCOSCSA_POINTER],N_COPIES);, 

; iss i a RETURN SIGNAL (MATL$_BADVALUE,1,COMMAND_DESC)); 

3 1222 1346 5 IF .N_COPIES EQLU 0 

3 1223 1347 OR .N_COPIES GTRU 255 

; \$se 138 THEN RETURN SIGNAL (MAIL$_BADVALUE,1,COMMAND_DESC); 

: 1556 1350 CLISGET_VALUE(SD_ QUEUE ,COMMAND_DESC); 

3 44 132! MAILSPRINT(COMMARD_DESC,.N_COPTES,.PRO_FLAGS); !Queue the message(s) 

; 1$¢° 1388 RETURN TRUE; 

; 1250 1354 1 END; 


2. . 
MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMAN - 
+ ttt L UTILI co DS =300 1984 90:42 '@ He 


Bliss-32_v4.0-74 p 4 
-Sep-1984 6 D SMA é age 43 


VAX=11 
SKSVM TER: CMAIL.SRCICMDS.B32;1 (22) | 


07FC 00000 ENTRY MAILSCMD_PRINT, Save R2,R3,R4,R5,R6,R7,R8,- ; 1300 
5A 000000006 00 9€ 0000 MOVAB CLI$GET_VALUE, R10 : 
59 taittdaitts 09 9E antes OVAB LIBSSIGRAL, RO : 
58 000000006 00 9E 99019 MOVAB MAILSGL_FLAGS, R8 ; 
57 000000006 99 9E 00017 MOVAB MAILS$PRINT, R? : 
56 000000006 00 9E 00018 OVAB CLISPRESENT, R6 : 
55 F2B0 CF 9E 000 MOVAB SD_NOTIFY, R5 : 
34 00000000" 60 H 000 A MOVAB  COMMAND_DESC, R4 F 
E 4 C2 00031 SUBL SP : 
3 D4 00034 CLRL = PRO_FLAGS + 1321) 
55 DD 00036 PUSHL : 1322 | 
66 01 FB 00038 CALLS #1, CLISPRESENT ® 
53 01 00 50 FO 00038 INSV RO. #0, #1, PRO_FLAGS : 
3c = AS.-—s«OF. «00040 PUSHAB sp PRI + 1323 
66 01 FB 00043 CALLS #17, CLISPRESENT ; | 
53 01 01 0 FO 00046 INSV RO, #1, #1, PRQ FLAGS r 
08 29 E9 0004B BLBC R 3 i 
53 DD O004E PUSHL PRQ_FLAGS > 1324) 
ze 7C 00050 CLRQ. = = (SP) : 
67 03 FB 00052 CALLS #3, MAILSPRINT : 
04 00055 RET ; 
FFI8 CS 9F 00056 1S: PUSHAB SD_ALL + 1326) 
66 01 FB O005A CALLS #17 CLISPRESENT : 
53 01 02 50 FO 0005D INSV RO, #2, #1, PRQ_FLAGS : 
1A 50 £8 00062 BLBS RO. 4 ; 
09 68 £9 00065 BLBC MAILSGL FLAGS, 2$ + 1331 
000000006 00 00 FB 00068 CALLS , MAICSREWIND_I_MSG ; 
07 11 0006F BRB s° : 
000000006 00 00 FB 00071 28: CALLS #0, MAILSREWIND_MSG ; 
21 50 £8 00078 3$: BLBS STATUS, 8$ : 
50 DD 0007B PUSHL STATUS ; 
19 11 0007D BRB 7$ : 
08 68 €9 OOO7F 4$: BLBC -MAILSGL_FLAGS, 5$ + 1334 
000000006 00 D5 00088 TSTL | MAILSL_AMSG > 1335 
06 11 0008 BRB ; 
000000006 00 05 008A 5$: TSTL § MAILSL_MSGBUFSIZ : 1336 
OA 12 00090 6$: BNEQ : 
Q07E804A 8F DD 00092 PUSHL #8290378 : 1337) 
69 01 FB 00098 7$: CALLS #1, LIBSSIGNAL : 
04 00098 RET : 
6E 01 D0 0009C 8s MOVL #1, N_COPIES > 1340 | 
54 DD 0009F PUSHL R4 : 1341 
FF48 CS 9F OOOAI PUSHAB SD_COPIES : 
6A 08 FB OOOAS CALLS #27 CLISGET_VALUE : 
12 50 £9 0008 BLBC =: RO. *O9$ : 
SE DD OOOAB PUSHL SP : 1344 
04 AG BD OOAD PUSHL  COMMAND_DESC+4 : 
7E 64 3C 0080 MOVZWL COMMAND “DESC, -(SP) F 
000000006 00 03 FB 000B CALLS #3, LIBSCVT_OTB ; 
OE 50 €9 OOOBA BLBC STATUS, 10$ : 
6E 09 OOBD 9$ MOVL N_COPIES, R2 : 1346 | 
09 13 000C0 BEQL 19s : 
QOOOOOFF  8F 2 Di 000C2 CMPL » #255 : 1347, 
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VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 VAX=11 Bliss-32 V4.0-742 Page 56 
04-000 18-808- 1 3b 950558 DISKSVMSMASTER: CMAIL.SRCJCMDS.B32;1 ’ (238 
3:1 3 1 33 1 GLOBAL ROUTINE MAILSCMD_NEXT = 
: 1 1 § 1 '4¢ 
; ! : } 2f : FUNCTIONAL DESCRIPTION: 
: 4 $ 1359 1! This is the NEXT command action routine and is called to display 
3 1 1360 1! the text of the next message. 
: 1238 1361 1! 
: 1239 1362 1°! INPUTS: 
: 1240 1363 1! 
3 1241 1364 1! Current message context. 
: 1 ag 1365 1! 
: 124 1366 1 ! OUTPUTS: 
3 iste 1367 1: 
; 1S¢? 1308 : a Next message text is displayed on SYS$OUTPUT. 
3 12467 1370 2 BEGIN 
: 1248 1371 LOCAL 
3 1508 1376 EDIT_FLAG; 
3 1251 1374 2 MAILSCLR_DIR_FLAG(); 
; 125¢ 1375 2 EDIT FLAG = CLISPRESENT(SD_EDIT); 
3 125 1376 ¢ IF .MAILSGL_FLAGSCMAIF_V_ISAM) 
3 1254 1377 THEN BEGIN 
3 1255 1378 3 IF MAILSF $6(0) 
: 1256 1379 4 THEN (MATLSREWIND_I_MSG(); READ MESSAGE (.EDIT_FLAG)) 
> 1257 1380 3 ELSE IF .MAILSL_MSG-STS EQL MAICS NOMOREM 
: 1258 1381 3 -MAILS$SL_ASG_STS EQL MAIL$ 
: 1259 1386 3 THEN STGNAC(.MAILSL_MSG_STS); 
3 1260 1383 3 END 
: 1261 1384 2 ELSE 
3 1668 1385 2 IF MAILSFIND_MSG(0) ! find next message 
: 126 1386 2 THEN 
3 1264 1387 2 READ_MESSAGE (.EDIT_FLAG) ' Display it 
3 1265 1388 2 ELSE 
3 1266 1389 2 IF .MAILSL_MSG_STS EQL MAIL$_NOMOREMSG 
3: 1267 1390 2 TH 
3 1268 1391 2 SIGNAL (MAIL$_NOMOREMSG) ; 
3 1269 139¢ 2 RETURN TRUE 
: 1270 1393 1 END; 
001C 00000 .ENTRY MAILSCMD_NEXT, Save R2,R3,R4 : 1355 
54 000000006 00 9€ 90008 MOVAB MAILSL_MSG STS, R4& : 
3 FFF CF 9E 00009 MOVAB MAILSCCR_DIR_FLAG, R3 ; 
63 00 FB 0005 CALLS #0, MAILSCLRIDIR_FLAG ; 1374 
F294 CF 9F 0001 PUSH SD_EDIT : 1375 
000000006 99 gt F Bale CALLS #1, CLISPRESENT 3 
2 0 D gic MOV RO E TF : 
2E 000000006 00 E9 OOO1F BLBC  #MAILS$GL_FLAGS, 3$ > 1376 
E D4 96 6 CLRL -(SP) : 1378 
000000006 } 4 0 CALLS #1, MAILSFIND_I_MSG 3 
0 €9 0002F BLBC RO, 1$ : 
000000006 00 9 FB 00 $ CALLS #0, MAILSREWIND_1_MSG 3; 1379 
11 000 BRB 4$ 3 


; Routine Size: 130 bytes, Routine Base: $CODES + OEFF 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1-5 Sep-1 5 —- VAX=11_BLiss-32_V4.0-742 Page 57. 

v04-000 14-Sep 5-19 38 19343 :% DISKSWMSMASTER:CMAIL.SRCICMDS.832;1 © (235 
50 4 00 00038 1$: MOVL MAILS TS, RO : 1380 ; 
007E8042 &F 85 D1 003 CMPL 7829 8878 : : 
9 13 0004 BEQL 2 ; 
OO7E804A BF 0 Di 0004 CMPL i. #8290378 + 1381 ; 
é 12 004 BNEG : ; 
DD 00050 28: PUSHL 4 + 1382 : 
é 11 0005 BRB 6h : : 
E D4 00054 3$: CLRL. = = (SP) > 1385 ; 
000000006 00 gi FB 0056 CALLS #1, MAILSFIND_MSG : : 
08 9 E9 00050 BLBC : : 
52 DD 00060 4$: PUSHL EDIT FLAG ; 1387 : 
85 A 01 FB 0062 CALLS #1, READ_MESSAGE : : 
16 11 0006 BRB : : 
QO7E8042 BF 64 D1 00068 5$: CMPL §MAILSL_MSG_STS, #8290370 + 1389 : 
0D 12 O006F BNEG ; : 
007E8042 8F DD 00071 PUSHL #8290370 + 1391 : 
000000006 00 01 FB 00077 6$: CALLS #1, LIBSSIGNAL : : 
50 01 DO O007E 7$: MOVL #1, RO > 1392 ‘ 
04 00081 RET + 1393 : 
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_ ROUTINE MAILSCMD_PURGE = 
; FUNCTIONAL DESCRIPTION: 


i Delete all messages in the wastebasket folder, " + PURGE/RECLAIM 


; is specified, reclaim deleted space in the ISAM 


BEGIN 


IF -ERR(MAILSOPEN IFO; 
RETURN .STATUSS; 


IF NOT .MAILSGL_FLAGSCMAIF V_ISAM] 
THEN RETURN™ SIGNAL (MAILS -NOTISAM) ; 


if CLISPRESENT(SD_RECLAIM) 
THEN BEGIN 


MAILSGL_FLAGSCMAIF _V RECLJ = 1; 
MAILSEMPTY ry ea bt ; 

MAILSGL FLAGSCMAIF REC) = 0; 

MAILSRECLAIMCL ISPRESENT (3D. STATISTICS)); 


ND 
LSE SIGNAL (MAILS$_DELMSGS,1,MAILSEMPTY_WASTEBASKET()); 


E 
al TURN TRUE 


007C 00000 

56 000000006 00 9€ 00002 

55 000000006 00 9E BR008 

54 000000006 00 9€ 00010 

53 F2E8 CF YE 00017 

¢ 000000006 00 9€ Obs 
6 9° FB 000 

47 0 €E9 00026 

OA 62 £8 O06 9 

OQO7ES0AA 8F DD 0002C 

64 01 FB 000 ¢ 
3F 900 

FI9D «= CF O9F ~00036 

65 9} 4 OO3A 

1D 0 f 00030 

62 80 8F 88 00040 

66 30 FB OheF 

62 80 F ga 047 

F19C F 9F 00048 

65 1 FB QO04F 

000000006 00 34 FB 00 é 

10 i 00 B 

9° FB B8 D 

DD 00060 


SCMD_PURGE, Save R2, R3, R4,R5,R6 
SeMPTY WASTEBASKET, RO 


US, 
MAI 36, FLAGS, 1$ 
#8290475 
#1, LIBSSIGNAL 


SD_RECLAIM 
i. LISPRESENT 


#128. MAIL 
aoe 

ae gLStaT STIS 

#1, MAILSRECLAIM 

#0, MAILSEMPTY_WASTEBASKET 


GS 
ICSERPTT UA WASTEBASKET 
IL$GL_FLAGS 


V4.0=742 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS b-se -1984 s- : | 
Moe 8So eae rR te a SE HS a 
1 DD 0006 PUSHL #1 
OO7EBE8B BF DD et PUSHL #$306315 : 
4 7 8 00080 38: out” ATt RRCDSZGNAL S 1419 
04 9090 4$ RET , + 1420 


; Routine Size: 113 bytes, Routine Base: $CODES + OF81 


ee 1 


9 
VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 VAX-11 BLiss-32 V4.0-742 Page 60 
14-Sep-1984 12:42:16  DISKSVMSMASTER:CMAIL.SRCICMDS.B32; 1 (25) 
; ' 14 1 GLOBAL ROUTINE MAILSCMD_COMPRESS = | 
: 14 § i FUNCTIONAL DESCRIPTION: 
: 1 1425 1 Process the COMPRESS command. 
: 1305 14 g 1/ 
: 1 06 1407 1 in 
: 130 14 8 BEGIN 
: 1308 14 LOCAL 
: 1309 1430 FLAGS : BITVECTORE323, 
: 1310 1431 DESC : VECTORC2,LONG), 
: 1311 1638 STATUS; 
: 1 i 14 | 
: 1313 1434 ¢ DESCLOI = DESCL1] = 0; | 
: 1315 14 6 i If a file was specified, use that. Else, if a file is open, | 
s ; 18 12 i use that. Else, open the default file. | 
: 1318 1439 2 IF CLISPRESENT(SD_FILE) | 
> 1319 1440 3 THEN BEG] 
: 1320 1441 MAILSCLOSE_ FILE); 
> 1321 144g CLISGET VACUE(SD_FILE,DYN_DESC); 
: 1 g P 144 IF_ERR(MAILSOPEN”F ILE (DYN-DESC):, 
3 1357 ies os RETURN .STATOS); 
: 135¢ 1446 2 ELSE IF NOT .MAILSGL_FLAGSCMAIF_V_FILOPNI | 
> 1326 P i447 THEN IF_ERR(MAILSOPEN FILE (DESC); , 
: 1327 1448 RETURN .STATUS); | 
: 1328 1449 2 IF NOT .MAILSGL_FLAGSCMAIF_V_ISAM) 
; ; $3 1629 THEN RETURN’ SIGNAL (MAICS_NOTISAM) ; 
: 1331 1458 CLISGET_VALUE(SD_OUTPUT, DYN DESC 2); 
; 13 ; 145 'CLISGET_VALUE(SB_FDL,DYN_DESC_ 3; 
: 1 1454 2 FLAGS = 0: 
> 1334 1455 2 MAILSCOMPRESS(. FLAGS DYN_DESC_2,DESC); 
> 1335 1456 2 RETURN TRUE 
> 1336 1457 1 END; 
001¢ 00000 .ENTRY MAILSCMD COMPRESS, Save R2,R3,R4 : 1421 
54 000009906 00 9E 9002 MOVAB CLISGET VALUE. RS ; 
3 FO7D CF 9E MOVAB SD FILE. R : | 
$2 00000000° 00 3 00 i MOVAB —DYR_DESC, R2 Fase 
: DD 0001 PUSHL RS : 1035, 
000000006 09 iH FB 19 CALLS “i, CLISPRESENT 
000000006 06 FB 000 g CALLS #0. MAILSCLOSE_FILE 1441 | 
DD A PUSHL R > 1442 
64 PF BO05E CALLS #2, CLISGET_ VALUE 
53 bp 80 f PUSHL R ; ’ ; 1444 | 
0c 000000006 00 8 E0 00 3 1$: BBS #3, MAILSGL_FLAGS+1, 3$ ; aged 
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0080 
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000000006 9 
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; Routine Size: 124 bytes, Routine Base: SCODES + OFF2 


hf 5 VAX-11 Bliss 
716 DISKSVMSMAS STER: CMAi 


a roe LEQPEN. FILE 
MA FLAGS, 4$ 
Hb LIBSSIGNAL 
BIND D ay 1° 


ie “gciseer ~VALUE 


new 
=_——_— "0 
> 


EL AG 

DYN DESC 2 

#3, MAILSCOMPRESS 
RO 
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H : 1485 } GLOBAL ROUTINE MAILSCMD_SEARCH = 

; ! , 1eet ! FUNCTIONAL DESCRIPTION: 

3s 1 § 1306 1! This routine is the SEARCH command action routine and is called to 
3 3 1465 1! search for a message containing the specified string. 

3 1344 1464 1! 

3 1345 1465 1 ! INPUTS: 

3; 3 § 1608 1! 

3 134 1467 1 ! OUTPUTS: 

: 1309 1269 1 i A taining th h string is displayed 

3 ‘ message containing the search string is displayed. 

: 1350 1270 1 ice . . . —— 

3; 1351 1471 BEGIN 

3; 3 28 1ar6 

3 135 147 

3 1 rs 1474 LOCAL 

; 1355 1475 TEST_REC: BLOCK(8 BYTE) ! Test record descriptor 
i] 26 1476 TEST-REC_BUFF: BLOCKCMAIL$K_INBUFFSZ]; | Test record buffer 

3 1328 1478 MAILSCLR_DIR_FLAG(); 

3 1359 1479 

; 1360 P 1480 IF LERR(SELECT DEFAULT();, ! Open file, select msgs if not 

5 : 6) et RETURN .STATUS); 

; 1368 1488 TEST_RECCDSCSA_POINTERJ = TEST_REC_BUFF; ! Init descriptor 

3 1302 re $4 If a string is specified, use it and reset search to first message. 

3; 1367 1487 IF CLISGET_VALUE(SD_SEARCH1,COMMAND_DESC) 

: 1368 1488 THEN BEGIN 

3; 1369 1489 MAILSSTRIP_QUOTES(COMMAND_DESC,COMMAND_DESC); 

: 1370 1490 MAILSUPCASE (C ND_DESC); ! pease n gage quoted. . ,DCL didn't 
3; 1371 1491 SEARCH_STRINGCOSCSW_LENGTH] = MIN(.COMMAND _DESCCDSC$W_LENGTHJ, 

; 1378 1438 TION(SEARCH_STRING_BUFF)); 
3 137 149 CHSMOVE (. SEARCH STRINGCDSC$W_LENGTH],.COMMAND_DESCCDSC$A_POINTER], 

3 fT 1494 S$ TRING_BUFF); 

3 1375 P 1495 IF_ERR(CIF .MAILSGC_FLAGSCMAIF V_ISAM] ‘ 

; 1376 P 1496 THEN MATLSFIND_I_MSGT1,1) ! Start with first message 
: 1577 P 1497 ELSE MAILSFIND-MSG(1));, 

3; 1378 P 1498 IF .MAILSGL_FLAGSCMAIF_V_ISAM] 

3 1379 P 1499 THEN SIGNAL(.STATUS); 

3 1380 1500 RETURN TRUE); 

: 133! 1501 END 

3; 1382 1206 ELSE 

3; 1383 P 150 IF_ERR(CIF .MAILSGL_FLAGSCMAIF _V J5And 

3 1384 P 1504 THEN MATLSFIND_I_MSGTO) ! Else, start with next message 
3 1385 P 1505 E ILS IND mSG(0)); 

: 1386 P 1506 IF .MAILSGL_FLAGSCAAIF _V_ISAM) 

: 1387 P 1507 H GNAL(.STATUS); 

3; 1388 1508 RETURN TRUE); 

3; 1389 1509 : , 

3 1300 4319 ; Search through the messages starting with the current. 

; 1392 1318 IF .MAILSGL_FLAGSCMAIF_V_ISAM) 

; 139 151 THEN BEGIN 

3 1394 1514 


9 
5on-138% 99:42: 5 VAX-11 Bliss-32 V4.0-742 
-Sep-1984 242:16 DISKSVMSMASTER: CMAIL.SRCJCMDS.B32;1 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 VAX=11 Bliss-32 v4.0-742 Page 64 
youto00 19-808- 1382 90:15:82 DISKSVMSMASTER:CMAIL.SRCICMDS.B32:1 (283 | 
B G 9E 002 MOVAB MAILSFIND_MSG, R11 ; 
A G 9E MOVAB MAILSFIND msg, R10 : 
9 G 9E 19 MOVAB MAILSUPCASE, R ; 
2 : F 9E 0 1 MOVAB MAILSCLR_DIR FLAG, RB : 
00000 006 00 9E iG MOVAB MAILSGL_FLAGS, R ; 
36 000090 * 00 9€ 00 MOVAB COMMAND DESC, R6 ; 
: F7EC ¢ E A MOVAB =2068(SP), SP : 
6 FB O000F CALLS #0, MAILS$CLR_DIR_FLAG + 1478 
C1 As Q FB 0032 CALLS #0, SELECT _DEFAUCT + 1481 
01 i 99 6 BLBS STATUS, 1$ : 
FC AD 0c AE E 00 A 1$ MOVAB TEST_REC_BUFF, TEST_REC+4 + 1483 | 
56 DD 0003F PUSHL  R6 + 1487 
F141 CF OF 00041 PUSHAB SD_SEARCH1 : 
000000006 00 92 FB 00045 CALLS me, CLISGET_VALUE ; 
3D E9 0004¢ LBC —OsoaRO, 48 : 
56 DD 0004F PUSHL 6 + 1489 
56 DD 00051 PUSHL RS : 
000000006 00 02 FB 00053 CALLS #2, MAILSSTRIP_QUOTES : 
56 DD O005A PUSHL R + 1490 
69 01 FB 0005¢ CALLS #1, MAILSUPCASE : 
50 66 3C 0005F MOVZWL COMMAND DESC, RO + 1491 
0080 &F 50 81 006¢ CMPW =SoRO, #128 : 
04 1B 0006 BLEQU : 
50 80 8F 9A 00069 MOVZBL #128, RO : 
08 A6 50 BO 0006D 2$: MOVW RO, SEARCH_STRING ; 
50 04 A6 00 00071 MOVL. COMMAND _DESC+4, RO + 1493 
FF4O C6 60 08 A6 28 00075 MOVC3 SEARCH STRING, (RO), SEARCH_STRING_BUFF : 
09 67 €9 0007C BLBC MAILSGC_FLAGS, 3$ + 1500 
01 DD O007F PUSHL #1 F 
01 DD 00081 PUSHL #1 : 
6A “ FB 90085 CALLS #2, MAILSFIND_I_MSG : 
13 11 00086 BRB 7$ F 
01 DD 00088 3$: PUSHL #1 F 
C 11 OOO8A BRB 6$ : 
07 67 €9 O008C 4$: BLBC  MAILSGL_FLAGS, 5$ : 1508 
7E 04 OOO8F CLRL oe ; 
6A 01 FB 00091 CALLS #1, MAILSFIND_I_MSG : 
09 11 00094 RB 7$ : 
E D4 0009 5$: CLRL = = (SP) : 
6B 01 FB 0098 68: CALLS #1, MAILSFIND_MSG : 
OE 50 £8 00098 7$: BLBS STATUS, 8$ : 
68 67 €9 0009E MAILSGL_FLAGS, 13$ : 
50 DD O00A1 PUSHL S ; 
000000006 00 01 FB O00A3 CALLS #1, LIBSSIGNAL : 
60 11 OOOAA BRB 13§ : 
6D 67 €9 OOOAC 8S: BLBC MAILSGL_FLAGS, 15$ : 1512 
000000006 00 00 FB OOOAF 9S: CALLS #0, MAICSREWIND_1_MSG : 1519 
SE pp 0B6 10$:  PUSHL : 1520 
08 AE 9F 000B PUSHAB RECDESC : 
000000006 00 g FB 0 B CALLS #2, MAILSGET_I_MSG F 
49 ; C BLEC =a ; 
50 04 Ar ¢ ¢ MOVZWL RE CDESC RO : 1522 | 
0200 8F 50 81 000C9 CMPW ORO, W510 ; 
5 1B Oc BLEQU 1 : 
50 0200 8 3C 000D MOVZWL #512, RO ; | 
F8 0 80 00005 11$:  MOvW RO, fEST_REC ; 
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! Redisplay the current message 


IF NOT .MAILSGL_FLAGSCMAIF_V_FILOPN] 
R L$L_ASG_NUM 
THEN RETURN ye Mt 


° 


RETURN sist MAILSL_MSG_STS); 


THEN RETURN SIGNAL (MAIL$_NOTREADIN); 


; a 1363 1 GLOBAL ROUTINE MAILSCMD_CURRENT = 
: 144 1866 1 !¢ 

3 1448 1567 1: FUNCTIONAL DESCRIPTION: 
3 1449 1568 1: 

: 1450 1569 1 

3: 1451 1570 1 

; 1026 13f) 1 !<- 

: 145 1 i BEGIN 

3: 1454 157 LOCAL 

3; 1455 1574 EDIT_FLAG; 

; 1456 1575 

3: 1457 1576 MAILSCLR DIR FLAG(); 

: 1458 1577 EDIT_FLAG = CLISP 

3; 1459 1578 IF MAILSGL _FLAGSCMAIF_V_ 
: 1460 1579 THEN BEGIN 

> 1461 1580 

: 1006 1581 3 

3: 146 1582 3 

> 1464 1583 3 MAiLSFIND_I_MSG(.MAIL$ 
: 1465 1584 3 IF N ~~ -MAICSL 

3: 1466 1585 3 THEN 

: 1467 1586 3 MAILSREWIND_1I_MSG(> 

3 1468 1587 3 

3 1469 1588 3 ELSE BEGIN 

: 1470 1589 3 IF NOT MAILSREWIND_MSG() 
3: 1471 1590 3 

3 1472 1591 2 END; 

3 1473 1592 2 READ _MESSAGE(. EDIT_FLAG); 
: 1474 1593 2 

3 1475 1594 2 RETURN TRUE 

: 1476 1595 1 END; 
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mAiLSL. MSG_NUM 
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LSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 18- “Sep- 1384 9095 247: 5 VAX=-11 Bliss=-32 V4.0-742 Page 70 
-000 14- ~Sep- 716 DISKSVMSMASTER:CMAIL.SRCICMDS.B32;1 (29) 


GLOBAI. ROUTINE MAILSCMD_LAST = 
! FUNCTIONAL DESCRIPTION: 
Type the Last message in the folder 


BEGIN 
CAL 
EDIT_FLAG; 


MAILSCLR_DIR_FLAG( 
IF _LERR(SELE ak 


RET 
IT FLAG 
IF .MAILS 
N a 


Oo t 


L | 
GNAL (MAIL$_NOMSGS); 
MAILSFIND_I_MSG(.MAILSL_NMSG); 
IF NOT -AKICSL MSG_STS 

THEN RETURN SIGNAL(.MAILSL_MSG_STS); 
MAILSREWIND_ t _MSGQ); 


END 
ELSE IF ie MSG(ZX"7FFFFFFF® 3. 
RETURN TRUE); 


READ MESSAGE (. EDIT_FLAG); 
RETURN TRUE 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey <= 
MEWN OO OONAOUESWN —OVOONOUES WOOO 


PVP PVIVDV PU PUDV PUPP PUPILS SUSUSIUSIVS ISVS 


TETRIS TELOTCTEOSTOTSTS COCO TESTE Te Te Tee Tere Te re Te re ee re 
tk ek ek ek dd dd 
PAPAS ASAAAOSAAOS SAAS OAAAAOAAAOAAAO 
VV BS BS BB BB BE EE EWAN nornreoreorerp 


WN — 9 OONOUES WN 0 OONA UNE AN" OVOONOUSE 
=PONININIWW NWN WIN EIIPIPUNPINONIPUNINYNY 2 SO OO 
mm m 

LJ 

“4 


001¢ 00000 ENTRY MAILSCMD_LAST, Save R2,R3,R4 : 1624 
54 000000006 00 9E 00002 OVAS MAILS$L_NMASG, R4 : 
53 F11F CF 9€& 00009 HOVAB MAILSCCR DIR Vey R3 3 
3 09 FB O000E CALLS #0, MAILSCLR7DIR_FLAG > 1635 
C1 AB 00 FB 00011 CALLS #0, SELECT _DEF AULT" > 1637 | 
60 50 £9 00015 BLBC =‘ STATUS : 
EEAD CF 9F 00018 PUSHAB SD_ bit” > 1639 | 
000000006 00 01 FB 0001¢ CALLS #17 CLISPRESENT : | 
32 50 09 900 MOVL RO. EDIT : 
000000006 00 E 6 BLBC #$MAILS$GL_FLAGS, 4$ > 1640 | 
64 05 0002D TSTL MAILSL_AM : 1642 | 
08 12 0002F BNEQ =s:«‘1$ ; 
007E804A BF DD 00 1 PUSHL #3290378 > 1643 
15 11 00037 BRB 2$ : 
4 DD 00039 18: PUSHL MAIL SL_NMSG ; 1644 
000000006 00 1 FB 000 2 CALLS UAATL $F IND 1_MSG : 
§0 000000006 00 D0 0004 MOVL Raise MSG_STS,~RO > 1645 
OA 0 E8 00049 BLBS RO, 38” : | 
DD 0004C PUSHL R ; 1646 
000000006 00 01 FB O4F 2s CALLS #1, LIBSSIGNAL : | 
000000006 00 00 FB 00056 3$ CALLS #0, MAILSREWIND_I_MSG > 1647 


0 | 


1 | 
taped henner Pt: P= lata: 19280-1364 9b525:48 «MESA UwAASTERSCMAIC. one acmps.032:1 29° (2) | 


} 
r 1838 


0 11 5 
7FFFFFFF F 4 E 4% PUSH a bat 4 te 1 
000000006 90 CALLS #1, MAILSFIND_MSG 
& C BLBC STATUS, 6$ 
DD F 5$: PUSHL EDIT_FLAG 1651 
85 a3 FB 1 CALLS #1, READ MESSAGE 
5 1D 75 68: OVL #1.R 1652 
04 00078 7$: 1653 


; Routine Size: 121 bytes, Routine Base: S$CODE$S + 12DF 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 1b-Se 1984 00:47:25 ya B 32 0-742 Page 72) 
v04= 1088-1 $8¢ 13503:%8 DI S R: L.SRCICMDS.B32;1 (30) | 


GLOBAL ROUTINE MAILSCMD_SPAWN = 
FUNCTIONAL DESCRIPTION: 
i Spawn a subprocess 


SS SSSSSSSSSS. 
PAE MMIMAIIVIVA 


WR =O OONAUE WN 9 ODNOAUE WN O OONAUEW —OOODNOUS 


LOCAL 
SUBPROCPID, 
PURGE_VEC : VECTORC2,LONG), 
SPAWN~FLAGS; 


IF .MAILSGL_FLAGSCMAIF_V_CAPTIVE] 
THEN RETURN SIGNALTMAILS_CAPTIVE); 


PPA STAI 
AACS WIUIVIUIUIUN ES & 
WHO OONOUESWN—OOW 

AAAAAAOOSOOAOOOCOAO 


09 69 G9 C9 G9 09 098 SII INI NININNNOO OO 


24 1 1 | 
3 7 1 1 

: 1 1 1 

° 1 1 1 | 
3 1 1 1 | 
3 1 1 1 
3 3 1 1 
: 1 1 BEGIN 
3 7 1 | 
; 7 1 OWN | 
: 1 1 PROC_DESC : DYN_DESC_DECL, 
: 1 1 INP_BESC : DYN_BESC_DECL, 

: OUT“DESC : DYNDESC7DECL: 
; 
s 1 1 | 
3 3 1 

3 1 1 | 
3 3 1 
3 9 1 | 
. F 1 | 
s 1 1 | 
2 1 1 

: 15 1 SPAWN_FLAGS = 0; 

: 15 1 CLISGET_VALUE (SD_PROCESS ,PROC_DESC); | 
3; 15 1 CLISGET_VALUE(SD_ INPUT, INP_DESC); 

: 15 i CLISGET-VALUE (SD"OUTPUT ,OUT_DESCS; 

3 1364 CLISGET “VALUE (SD~P1, COMMAND DESC): 

: 1566 16 IF NOT CLISPRESENT(SD_WAIT) | 
: 1367 16 THEN SPAWN_FLAGS = .SPAWN_FLAGS OR 1; | 
: 1569 16 IF NOT CLISPRESENT(SD_SYMBOLS) 
: 1370 168 THEN SPAWN_FLAGS = .SPAWN_FLAGS OR 2; 
: 1572 1688 2 IF NOT CLISPRESENT(SD_LOGICAL_NAMES) | 
: 1378 168 THEN SPAWN_FLAGS = .SPAWN-FLAGS OR 4; 
: 1575 1691 2 MAILSDISABLE_CTRLC(); | 
: 1576 169 IF (.SPAWN_FCAGS AND 1) EQL 0 'ONLY IF SPAWN/WAIT 
3: 1577 169 THEN BEGIN | 
: 1578 1694 PURGE _VEC 0} = 0: 

: 1579 1695 PURGE VECC1) = %X'7FFFFFFF'; 

: 1580 169 SPURGUS (INADR=PURGE, VEC) ; | 
: 1382 P 1698 2 IF_ERR(LIBSSPAWN(COMMAND_DESC,INP_DESC,OUT DESC, 

: 158 P 1699 SPAWN_FLAGS ,PROC_BDESC, SUBPROCPID);, 

3; 1584 P 1700 (MAP HM : SBBLOCK; 
: 1585 P 1701 STATUSC(STSS$V_SEVERITY] = STS$K_ERROR; 

> 1586 Pp 1708 MAILSENABLE_ CTRLC(); | 
; 1587 170 RETURN SIGNAL(.STATUS))); 
: 1588 1704 
: 1589 1705 2 MAILSENABLE_CTRLC(); 
: 1590 1706 IF (.SPAWN FLAGS AND 1) EQL 0 'SPAWN /WAIT 
+ 1591 170 THEN MAILSCMD_SHOW_NEW(); 
: 1398 1708 
: 159 1709 2 RETURN TRUE | 
> 1594 1710 1 END; 


<= 


VAX/VMS PERSONAL MAIL UTILITY COMMANDS 


09 000000006 


04 


04 


04 


007E812A 
04 


AS 


02 


02 


02 


00 


FPOVIMYS OWO—-DOMOCOoo 
FWMAMAOONOOO 


-PSECT 
00# 000D0 PROC_DESC: 
BYTE 
OE 00002 BYTE 
te -BLKB 
00# 000D8 INP_DESC: 
BYTE 
OE QO0DA BYTE 
Dc -BLKB 
00# OOOEO OUT_DESC: 
BYTE 
OE Q00E2 BYTE 
000E4 BLKB 
EXTRN 
PSECT 
OOFC 00000 ENTRY 
9—E 00002 MOVAB 
9E 00009 MOVAB 
9E 00010 MOVAB 
9E 00017 MOVAB 
9 poole —s 
C boos SUBL 
E1 00026 BBC 
D Boge PUSHL 
1 000 BRW 
D4 at 1$ CLRL 
DD OOO3A PUSHL 
0D Boose PUSHL 
FB OO03E CALLS 
9F 00041 PUSHAB 
9F 00044 PUSHAB 
FB 00048 CALLS 
9F 00048 PUSHAB 
9F QO04E PUSHAB 
FB 00051 CALLS 
9F 00054 PUSHAB 
oF 7 PUSHAB 
FB A CALLS 
9F 0005D PUSHAB 
FB 00061 CALLS 
he: LBS 
67 BISB2 
F 00068 2$: SH 
f 894 CALLS 
LBS 
74 B1SB82 
f 78 3%: PUSHAB 
F 78 CALLS 
5 7E BLBS 
081 BISB2 


SOWNS ,NOEXE,2 


SO £0 £0 
orm on 

es ™ e ™ es 
w wu w 

~m 


on 
™m 


SYSSPURGWS 
SCODES,NOWRT,2 
MAILSCMD_SPAWN, Save R2,R3,R4,R5,R6,R7 
MAILSENABLE_CTRLC, R7 

CLISPRESENT. R6 

CLISGET VALUE, RS 
SD_PROCESS, R4 
PROC_DESC, R3 


#16, 

#6, MAILSGL_FLAGS+1, 1$ 
#8590609 
SPAWN_FLAGS 

R3 

R4 

#2, CLISGET_VALUE 
INP_DESC 

SD_INPUT 

#2, CLISGET_VALUE 
ouf_DESC 
SD_OuTPUT 

#2, CLISGET_VALUE 
COMMAND DESC 

2 CLISGET_VALUE 
#1, CLISPRESENT 


#1. SPAWN _FLAGS 
SD_SYMBOLS 
#17 CLISPRESENT 


V4.0-742 
:CMAIL.SRCICMDS.B32;1 


Page 4 


' 


j 
| 
(30 


<=z 
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MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 16-Sep-1984 00:47:25 — VAX=11_BLiss-32 V4. 0-742 Page 74, M 
v04-000 14- =30071 38% 99:03 :16 = DISKSVMSMASTER: CMAIL.SRCJCMDS.B32;1 ° (30) V 
000000006 09 00 FB 00 5 4$: CALLS AJL SOI SABLE. CTRLC : 1691 
1 04 AE £8 000 BLBS oO kun + 1692 
08 AE D4 000 CLRL PUR 2} + 1694 
OC AE 7FFFFFFF FF 20 9 MOVL  - #2147%83647, PURGE_VEC+4 + 1695 
08 AE 9F 00098 PUSHAB Py V + 1696 
000000006 00 : FB 0009 CALLS sts PURGWS : 
4008 8F BB OOOAS 5$ PUSHR #*M<R3,SP> : 1703 
o¢ AE 9F OOOA PUSHAB SPAUN aie ; 
10 AS OF 0 AC PUSHAB OUT_DESC : 
08 AS 9F OOOAF PUSHAB INP~DESC : 
FO «=—A3 OOF (00 Be PUSHAB COMMAND DESC ; 
000000006 Q F B CALLS is LIBSSPAWN : 
D BC MOVL R rent : 
1 E8 OOOBF BLBS ; 
52 03 09 02 FO O0¢¢ INSV i US ; 
rs 00 FB 000¢ CALLS i Shae! TCTRLC ; 
52 DD OOOCA PUSHL ; 
000000006 00 01 FB d90¢¢ 6$: CALLS TA WWE RSSIGNAL ; 
04 0000 RET : 
67 00 FB 00004 7$: CALLS #0, MAILSENABLE _CTRLC + 1705 
07 04 AE €8 00007 BLB SPAWN FL > 1706 
000000006 00 00 FB 000DB CALLS MAILSCHO SHOW_NEW + 1707 
50 01 00 OOOE2 8$: MOVL nF : 1709 
04 000E5 RET : 1710 


; Routine Size: 230 bytes, Routine Base: S$CODE$S + 1358 
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:1 96 1711 1 GLOBAL ROUTINE MAILSCMD_ATTACH = 

: 159 1216 1 !4¢ 

: 1598 1713 1 ' FUNCTIONAL DESCRIPTION: 

: 1599 1714 1/3 

; 1600 1715 1! Attach to a subprocess 

+ 1601 1716 1 i 

: 160¢ 1717 1 ie 

> 160 1718 2 BEGIN 

> 1604 1719 

: 1605 1720 

> 1606 1721 STATUS 

: 1607 17 g SUBPROCPID : VOLATILE, 

: 1608 17 PURGE VEC : VECTORL2, LONG), 

: 1609 1726 PARENT_ FLAG 

: 1610 7 5 ITMLST~: SITMLST_DECL(ITEMS=1); 

: 161g 7 ; CLISGET_VALUE (SD_P1,COMMAND_DESC); 

: 1614 1798 PARENT_FLAG = CLISPRESENT(SD_PARENT); 

: 1616 1731 IF_.PARENT_FLAG 

: 1617 173¢ THEN BEGIN™ 

: 1618 P17 SITMLST_INITCITMLST=ITMLST, 

; 1619 173% (ITACOD=JP1$_OWNER , BUF ADR=SUBPROCPID)); 
: 1621 1736 ST aTus : $GETJPIWCITMLST= ITMLST); 

3 168¢ 1737 IF ATUS 

: 16 1738 4 R (, SUBPROCPID EQL 0) 

> 1624 1739 3 THEN RETURN SIGNAL (MAILS _NOPARENT); 

> 1625 1740 END 

: 1626 1741 ELSE BEGIN 

: 1627 P 1748 $1 TALST INITCITMLST=1TM 

: 1628 1743 ITACOD=JPI$_PID, BUFADR= =SUBPROCPID)); 
3 1880 P 1745 IF ~ERR(SGETJP1u(PRCNAM= CORRAND _DESC,ITMLST=ITMLST);, 
+ 1631 1746 RETURN SIGNAL(. STATUS) ) 

3: 1632 1747 END; 

: 1633 1748 

> 1634 1749 2 IF .SUBPROCPID EQL 0 

; 1635 1730 THEN RETURN SIGNAL((SS$_NONEXPR AND NOT STSSM_SEVERITY) OR STSSK_WARNING); 
: 1637 1738 MAILSDIS efi ~CTRLCO; 

: 1638 175 PUR GEV 

: 1639 1754 : Li zereeerr 

: 1640 1755 SPUREOS YEO MADREPS 

+ 1641 P 1736 IF UR CRA TAM SobPhoieao 

: 1642 P 175 (MAP STAT $BBLOCK: 

> 164 P 1758 status sTS$V SEVERITY = STS$K_ERROR; 
+ 1644 P 1759 MAILSENABLE CTRLC(); 

: 1645 1760 RETURN SIGNAL(.STATUS))); 

> 1646 1761 

: 1647 176 MAILSENABLE_CTRLC(); 

> 1648 176 MAILSCMD_SHOW_NEW(): 

+ 1649 1764 

: 1650 1765 2 RETURN TRUE 

> 1651 1766 1 END; 


4.0-742 P 
742:16 DISKSVMSMASTER: [MAIL SRCICMDS .B32;1 
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.EXTRN SYSSGETJPIW | 


003c¢ 0000 ENTRY MAILS CHD ATTACH, Save R2,R3,R4,R5 31711) 
55 99000000" 0 9% a092 MOVAB R : | 
54 9000 006 0 9E 0000 MOVAB AIUSENABLE C1 CTRLC, R4 : 
53 000000006 3 9010 MOVAB Bite GETJPI W; F 
” 3§ §5 Booth SUSHL ; 727 | 
ECAA cf oF bo1¢ PUSHAB : 
000000006 00 2 FB 00 6 CALLS $7 PrLISGET _VALUE : 
ECAF CF 9F PUSHAB SD_PARENT + 1729 
000000006 00 gi FB 90 CALLS a Gb ISPRESENT : 
ef ae Se boo Sb VAB USI OO tase KP + 133] 
80 03030004 8F DO 999 8 MOVL h50 nests el (SSTIMBLKPTR) + : 
ee 3: ms ex, 
7E 7C 00045 CLRQ = =(SP) + 1736 
7E D4 00047 CLRL = = (SP) : 
OC AE 9F C0049 PUSHAB ITMLST : 
7E 7C 0004C CLRQ =(SP) : 
7E 04 OO04E CLRL = = (SP) : 
63 07 FB 0005 CALLS #7, SYSS$GETUJPIW : 
05 50 €9 00053 BLBC STATUS, + 1737 
L P D : 
18 AE D3 0046 st UBPROCPI 1738 
OO7EDF90 «8F DD 00058 1$: PUSHL #8314768 : 1739 
67 11 00061 BRB 5$ : 
50 6E 9E 00063 2S: MOVAB isi ITMBLKPT : 1743 
BO 03190004 8F DO 00066 MOVL #31 gr (SST IMBLKPTR)+ : 
oT A ewe MB HRTISeBinseesTmener™™ pa 
7E 7C 00073 CLRQ  -=(SP : 1746. 
7E 04 00075 CLRL = = (SP) : 
0c AE 9F 00077 PUSHAB ITMLST F 
3 bp 007A PUSHL : 
: C 0007C¢ CLRQ. = (SP) ; 
63 0 FB 0007E CALLS #7, SYSSGETJPIW ; 
04 50 £ 90081 BLBS STATUS, 3$ : 
23 FR obs. BRB 
18 AE 03 90088 3$: TSTL  SUBPROCPID > 1749 
1 B BNEQ 3 
7E O8E8 BF 3C 90080 MOVZWL #2280, -(SP) : 1750 
6 11 00092 BRB ; 
000000006 00 00 FB 90094 4$: CALLS #0, MAILS$DISABLE_CTRLC : 1758 
10 AE D4 0009B CLRL : 175 
14 AE 7FFFFFFF 8F pO O09E OVL #2147683647, PURGE _VEC+4 : 1754 
000000006 00 on Of PB 8 ‘8 cats. # SYSSPURGWS Bebe 
18 AE OF 9080 PUSHAB SUBPROCP! : 1760 
000000006 99 : : o0Bk CALLS wi, Ul LIBSATTACH ; 
‘3 2 E BD BLBS erATO S : 
52 03 0 F tae INSV te wis. sy STATUS : 


<= 


MAILSCMDS VAX/VMS PERSONAL MAIL UTILITY COMMANDS b-5e $ep-1984 00:47:25 
Voue800 12rgeh=}382 93:43:92 
64 FB cS CALLS #0, MAILSENABLE_CTRLC : 
DD PUSHL STATUS : 
000000006 00 FB CA 5$ CALLS #1, LIBSSIGNAL : 
64 00 FB 002 6$ CALLS #0, MAILSENABLE_CTRLC + 1762 
000000006 00 00 FB 0000 CALLS #0, MAILSCMD_SHOW_NEW : 1763 
50 01 00 000DC MOVL #1, RO + 1765 
04 OO0DF RET : 1766 


7 
VAX=11 Bliss=32 v4. Page 77 
ST KSVMGMASTERS EMAIL She acmDS.032;1 2% ¢345 
; Routine Size: 224 bytes, Routine Base: S$CODE$ + 143€ 
| 
| 


11 

MAIL REROS VAX/VMS PERSONAL MAIL UTILITY COMMANDS 18-Sep-1984 00:62: 5 VAX-11 BLliss-32 
v04-000 14-Sep-1984 12:42:16 DISKSVMSMASTER: 
; 160) 1767 1 END 
3 1654 1768 0 ELUDOM 

-EXTRN LIBSSIGNAL 
H PSECT SUMMARY 
: Name Bytes Attributes 
: $GLOBALS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 5406 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Barc 2 Oe oe ds: <a Ste, Seanain SyEBOL§ ownwsonee Pages Processing 
3 File Total Loaded Percent Mapped Time 
; -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 50 0 581 00:00.8 
; 7$255$DUA28: CMAIL.OBJIJMAILDEF .L32;1 457 26 5 26 00:00.2 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CMDS/OBJ=OBJ$:CMDS MSRC$:CMDS/UPDATE=(ENH$: CMDS) 
Size: 4704 coge,* 938 data bytes 


Run Time: 0:47. 
Elapsed Time: 02:54.7 
Lines/CPU Min: $525 
Lexemes/CPU-Min: 2534 
penety Used: 250 pages 
Compilation Complete 
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